Case2

Please replicate the Hans Rosling’s visualization as closely as possible using ggplot. You only need to select one year to replicate. Try your best to replicate the symbol colors, shapes, sizes, axes, ticks, labels, text, grids, background colors, background text, and etc. Of course, it is impossible to replicate everything exactly te same.

I decided to select the year of 2002 to replicate since it’s the year I was born.

Year_2002 <- filter(gapminder, year == 2002)
ggplot(data=Year_2002) +
  annotate(geom = "text", x = 8000, y = 50, label = "2002", color = "black", size = 40, alpha = 0.2) +
  geom_point(aes(x = gdpPercap, y = lifeExp, fill = continent, size = pop), shape = 21, alpha = 0.5) +
  scale_fill_manual(breaks = c("Asia", "Europe", "Oceania", "Americas", "Africa"), values = c("pink", "yellow", "red", "green", "blue")) +
  scale_x_log10(breaks = c(500, 1000, 2000, 4000, 8000, 16000, 32000, 64000, 128000), labels = c("500", "1000", "2000", "4000", "8000", "16k", "32k", "64k", "128k")) +
  scale_y_continuous(breaks = c(10, 20, 30, 40, 50 , 60, 70, 80, 90)) +
  theme(panel.background = element_blank(), axis.line = element_line(color = "black"), 
        panel.grid.major = element_line(color = "grey")) +
  labs(x = "Income - per person (GDP/capita)",
       y = "Life Expectancy (years)")