Pretty simple question, but I can't figure out how to save the actual animated map so that I can send it to people. I've created an animated map in R using ggplot2, but I can't seem to just save it as a gif or jpg or whatever I'm supposed to save it as in order to send it to people (i.e. my boss).
How can I do this? It seems like it should be very easy, but I'm having no luck.
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