adsp-522-4

library(gapminder)
library(gganimate)

## Loading required package: ggplot2

ggplot(gapminder, aes(x = gdpPercap, y = lifeExp, 
                      size = pop, color = continent)) +
  geom_point(alpha = 0.7, show.legend = TRUE) +
  scale_x_log10() +
  labs(title = "Year: {frame_time}",
       x = "1인당 GDP (log)", y = "기대수명") +
  theme_minimal() +
  transition_time(year) +
  ease_aes('linear')