Как я могу отправить кому-нибудь анимированную карту, созданную в R? - PullRequest
Новая
       11

Как я могу отправить кому-нибудь анимированную карту, созданную в R?

0 голосов
/ 22 октября 2019

Довольно простой вопрос, но я не могу понять, как сохранить реальную анимированную карту, чтобы я мог отправить ее людям. Я создал анимированную карту в R с помощью ggplot2, но я не могу просто сохранить ее как gif или jpg или что-то еще, что я должен сохранить как для того, чтобы отправить ее людям (то есть моему боссу).

Как я могу это сделать? Кажется, это должно быть очень легко, но мне не повезло. 

File_I_Used <- file.choose(new = TRUE)
origAddress <- read.csv(File_I_Used, header = TRUE, stringsAsFactors = FALSE)

head(origAddress)

Closing.Date Year   Qtr          lon      lat
1       2004/9 2004 4-Mar    -93.26686 44.96116
2       2004/9 2004 4-Mar     -93.26686 44.96116
3      2004/10 2004 4-Apr    -93.26686 44.96116
4      2004/11 2004 4-Apr     -93.27559 44.93343
5      2004/11 2004 4-Apr   -93.25080 44.95893
6      2004/11 2004 4-Apr    -93.25087 44.95885

City <- ggmap(get_googlemap(center = c(lon = -93.2638397, lat = 44.979969),
                                   zoom = 12, scale = 2,
                                   maptype = "roadmap",
                                   color = "color"))
City

Properties <- data.frame(origAddress)
Properties

Final_View <- City + theme(legend.position = "none", axis.ticks.x = element_blank(), axis.ticks.y = element_blank(),
                                  axis.text.x = element_blank(), axis.text.y = element_blank()) + 
  geom_point(aes(x = lon, y = lat, color = "Year"), data = Properties, size = 2) +
  transition_states(Year, transition_length = 0) +
  shadow_mark(past = TRUE) +
  labs(title = "My Title")
Final_View
...