gganimate plot using google analytics

gganimate google analytics.r

#http://code.markedmondson.me/googleAnalyticsR/articles/setup.html 

install.packages("googleAnalyticsR")
library(googleAnalyticsR)
#change location to your service key folder
ga_auth(json_file = "C:\\location-folder-for your-service-account-json\\service-key.json")

account_list <- ga_account_list()
account_list$viewId

#change view id to your GA view
ga_id <- 1234567

data <- google_analytics(ga_id,
 date_range = c("2019-01-01", "2020-11-30"),
 metrics = "sessions",
 dimensions = c("date","channelGrouping"),
 anti_sample = TRUE)

head(data)
summary(data)

install.packages("gganimate")
library(gganimate)
#https://gganimate.com/articles/gganimate.html 
#transition_reveal params http://search.r-project.org/library/gganimate/html/transition_reveal.html
p <- ggplot(subset(data,channelGrouping=="Organic Search"),
  aes(x=date,y=sessions,
  colour=channelGrouping)) + 
  geom_line() +
  transition_reveal(date) + 
  theme(legend.position = "bottom") +
  ggtitle("Daily Organic Search Traffic to AnalyticsLog.com")
  
p
#https://stackoverflow.com/questions/51440496/using-gganimate-to-export-gif
anim_save("organic search.gif",p)

gganimate plot.r

p <- ggplot(subset(data,channelGrouping=="Organic Search"),
  aes(x=date,y=sessions,
  colour=channelGrouping)) + 
  geom_line() +
  transition_reveal(date) + 
  theme(legend.position = "bottom") +
  ggtitle("Daily Organic Search Traffic to AnalyticsLog.com")