¿Cómo hemos hecho el anterior gráfico?
Paquetes usados: Tidyverse, para arreglar los datos, ggplot2, gganimate y gifski para agregar la animación, RColorBrewer para la paleta de colores, y COVDATA !! (para obtener los datos)
Hemos arreglado el df, cogiendo los casos acumulados. Además, hemos hecho un ranking en una columna nueva, y con los 10 países que presentan un número mayor de contagios.
Hemos realizado un gráfico de barras (con geom_col) y para que esté animado se ha utilizado la función transition_states
(del paquete gganimate)
Por último la función animate donde ponemos los fotogramas por segundo, el tiempo de pausa (cuando acaba la transición), etc.
animate(a,
nframes = 800,
fps = 24,
end_pause = 200,
width = 1000,
height = 600,
type = "cairo")