Homework 6 BANA 4137

Question: 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 the same.

gapminder::gapminder

library(tidyverse)
library(gapminder)

g <- gapminder_2007[order(gapminder_2007$continent, gapminder_2007$gdpPercap), ]

df <- gapminder::gapminder %>%
  filter(year == 2007)


gmgraph <- ggplot(data = df) +
  geom_point(aes(x = gdpPercap, y = lifeExp,
                 size = pop,
                 alpha = 0.5,
                 fill = continent),
             shape = 21) +
  scale_y_continuous(breaks = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90),
                     limits = c(0, 90)) +
  scale_x_continuous(breaks = c(250, 500, 1000, 2000, 4000, 8000, 16000, 32000, 64000, 128000),
                     labels = c("250", "500", "1000", "2000", "4000", "8000", "16k", "32k", "64k", "128k"),
                     trans = "log10",
                     limits = c(-1, 128000)) +
  scale_fill_manual(breaks = c("Asia", "Africa", "Americas", "Europe", "Oceania"),
                    values = c("red", "lightblue", "green", "yellow", "grey")) +
  theme(panel.background = element_blank(),
        axis.line = element_line(color = "black"),
        panel.grid.major = element_line(color = "grey")) +
  scale_size(range = c(1,20)) +
  xlab("Income") +
  ylab("Life Expectancy") 

Warning: NaNs produced

gmgraph +
  annotate("text", x = 5000, y = 40, label = "2007", size = 50, alpha = 0.2) +
  guides(size = "none", alpha = "none")