Chile/Cuba Stats

Cuba %>% 
  ggplot(aes(x = year, 
             y = gdpPercap, 
             color = country)) + 
  geom_point() + 
  geom_path() + 
  geom_label_repel(aes(label=round(gdpPercap, 0))) + 
  scale_x_continuous(breaks=c(seq(1952, 2007, 5))) +
  scale_y_continuous(breaks=c(seq(3000, 13000, 1000))) + 
  labs(title = "GDP progress 1952-2007",
       subtitle = "Chile's progress greatly trumps Cuba.",
       x = "Year", 
       y = "GDP per capita", 
       color = "Country") + 
  theme_fivethirtyeight()

Cuba %>% 
  ggplot(aes(x = year, 
             y = lifeExp, 
             color = country)) + 
  geom_point() + 
  geom_path() + 
  geom_label_repel(aes(label=round(lifeExp, 2))) +
  scale_x_continuous(breaks=c(seq(1952, 2007, 5))) +
  scale_y_continuous(breaks=c(seq(50, 80, 2.5))) +
  labs(title = "Life Expectancy progress 1952-2007",
       subtitle = "Cuba's intial lead in the 1950's was diminished by 1992.",
       x = "Year", 
       y = "Life Expectancy", 
       color = "Country") + 
  theme_fivethirtyeight()