Fahim-Ahmad

library(tidyverse)
library(patchwork)
theme_set(theme_bw())

plot_1 <- gapminder::gapminder %>% 
  filter(year == max(year)) %>% 
  group_by(continent) %>% 
  summarize(mean = mean(gdpPercap)) %>% 
  ungroup() %>% 
  ggplot(aes(x = continent, y = mean, fill = continent)) +