Mi primer gganimate

options(scipen = 999)

library(tidyverse)
library(gganimate) 
library(gifski) # Para crear el GIF
library(gapminder) # Para el data
library(ggthemes) # Para todos los temas

data("gapminder")

base<- gapminder %>% group_by(year,continent) %>% 
  summarise(mean_life= mean(lifeExp),mean_pop=mean(pop),mean_gdp=mean(gdpPercap))
base<-base %>% mutate(mean_pop=mean_pop/1000000)

grafica3<-ggplot(base,aes(x=mean_gdp,y=mean_life,color=continent,size=mean_pop))+ 
  geom_point() + geom_line(size=1.5,alpha=0.4)+ # Alpha nivel de transparencia
  labs(title ="Esperanza de vida en: {frame_along}", # labs: me ayuda a modificar los nombres de todo
       x="PIB",y="Esperanza de vida", # cambio nombre de los ejes x e y
       color="Continente", # cambio el nombre de la etiqueta color
       size="Población en \nmillones") + # cambio el nombre de la etiqueta tamaño
  theme_bw()+  # cambia el fondo de la grafica
  theme(plot.title =  element_text(size=12,hjust = 0.5,face="bold"), # theme me ayuda a darle estetica a todo, doy estetica al titulo
        legend.title = element_text(face="bold",size=10,hjust=0.5), #estetica a las etiquetas, tamaño, ajuste, negrita
        axis.title.x = element_text(face="italic",size=10,hjust=0.5), # estetica eje x
        axis.title.y = element_text(face="italic",size=10,hjust=0.5))  #estetica eje y
grafica3 + transition_reveal(year)