My first slides

Dataviz of Gapminder

Loading data

We will load the dataset “gapminder· included in the R package ‘{gapminder}’

# A tibble: 1,704 × 6
   country     continent  year lifeExp      pop gdpPercap
   <fct>       <fct>     <int>   <dbl>    <int>     <dbl>
 1 Afghanistan Asia       1952    28.8  8425333      779.
 2 Afghanistan Asia       1957    30.3  9240934      821.
 3 Afghanistan Asia       1962    32.0 10267083      853.
 4 Afghanistan Asia       1967    34.0 11537966      836.
 5 Afghanistan Asia       1972    36.1 13079460      740.
 6 Afghanistan Asia       1977    38.4 14880372      786.
 7 Afghanistan Asia       1982    39.9 12881816      978.
 8 Afghanistan Asia       1987    40.8 13867957      852.
 9 Afghanistan Asia       1992    41.7 16317921      649.
10 Afghanistan Asia       1997    41.8 22227415      635.
# ℹ 1,694 more rows

Preprocess data

We will filter just data from 2007

library(dplyr)
gapminder_2007 <- gapminder |> 
  filter(year == 2007)

Plot the data

library(ggplot2)
ggplot(gapminder_2007) + 
  geom_point(aes(x = lifeExp, y = gdpPercap, colour =  continent)) + 
  ggthemes::scale_color_colorblind() +
  theme_minimal()