Life-Expectancy-based-on-GDP-per-capita.R

library(gapminder)
library(ggplot2)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(gganimate)
library(tidyverse)

## -- Attaching packages --------------------------------------- tidyverse 1.3.0 --

## v tibble  3.0.6     v purrr   0.3.4
## v tidyr   1.1.2     v stringr 1.4.0
## v readr   1.4.0     v forcats 0.5.1

## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

library(ggthemes)

anim <- ggplot(gapminder, aes(x = gdpPercap, y = lifeExp, size = pop , color = country)) +
  geom_point(show.legend = FALSE, alpha = 0.7) +
  scale_color_viridis_d()+
  scale_size (range = c(1, 10)) + 
  scale_x_log10() +
  labs( X = "GDP per capita", y = "Life expectancy") + 
  transition_time(year) + 
  labs(time = "Year: {frame_time}") +
  labs(title = "Life Expectancy of Countries Based on GDP Per Capita")+
  labs(subtitle = 'Year {frame_time}')
anim2 <- anim + theme_economist() # change theme
anim3 <- anim2 + xlab ("GDP Per Capita") # clarify X axis 

anim3