## Ce script s'exécute après dataFR.R dont il récupère les données
library(gganimate)

###Animation France################################################
dayCumulDataFR1 <-  dayCumulDataFR %>% filter(type == "Occurence")
animGraph<- ggplot(dayCumulDataFR1, aes(as.Date(jour,origin = "1899-12-30"),value))+ 
  geom_line(aes(colour=as.factor(key)),size=0.7)+
  scale_colour_brewer(palette ="Set1","légende\ncouleurs")+
  scale_x_date(breaks = date_breaks("days"),labels = date_format("%d %b"))+
  labs(x="Date",y="Nombre")+theme(axis.text.x = element_text(angle = 90, hjust = 1))+
  ggtitle(titreDay)+labs(caption = sourceFR)+transition_reveal(jour)+ease_aes('linear') + exit_fade()
animate(animGraph)
# animGraph########################################################