Analisis geoespacial con R, de la epidemia Covid19 en Santiago

library(gganimate)

e <- ggplot(data_rm)+
  geom_sf(aes(fill=Casos_Acumulados))+
  transition_manual(Fec)+
  labs(subtitle = "Día transcurrido de la pandemia en Santiago: {current_frame}")

animate(e)