Caricamento librerie e dati
I package per caricare ed elaborare il dataset gapminder sono i seguenti:
── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr 1.1.4 ✔ readr 2.1.5
✔ forcats 1.0.1 ✔ stringr 1.5.2
✔ ggplot2 4.0.0 ✔ tibble 3.3.0
✔ lubridate 1.9.4 ✔ tidyr 1.3.1
✔ purrr 1.1.0
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag() masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
Attaching package: 'janitor'
The following objects are masked from 'package:stats':
chisq.test, fisher.test
library(gapminder)
library(knitr)
library(gt)
Mostriamo a video una stampa delle prime 5 righe della tabella, usando una stampa “brutale”:
# A tibble: 5 × 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.
Posso sfruttare la funzione kable del package knitr per ottenere una stampa più gradevole di un output tabellare:
gapminder |> slice(1:5) |> kable()
| Afghanistan |
Asia |
1952 |
28.801 |
8425333 |
779.4453 |
| Afghanistan |
Asia |
1957 |
30.332 |
9240934 |
820.8530 |
| Afghanistan |
Asia |
1962 |
31.997 |
10267083 |
853.1007 |
| Afghanistan |
Asia |
1967 |
34.020 |
11537966 |
836.1971 |
| Afghanistan |
Asia |
1972 |
36.088 |
13079460 |
739.9811 |
Creazione di una tabella di riepilogo
La seguente tabella riporta il valore dei tre indicatori disponibili in gapminder per i cinque continenti relativamente all’anno 2007:
gapminder |>
filter(year == 2007) |>
group_by(continent) |>
summarise(across(.cols = c(lifeExp, pop, gdpPercap), .fns = mean)) |>
gt()
| Africa |
54.80604 |
17875763 |
3089.033 |
| Americas |
73.60812 |
35954847 |
11003.032 |
| Asia |
70.72848 |
115513752 |
12473.027 |
| Europe |
77.64860 |
19536618 |
25054.482 |
| Oceania |
80.71950 |
12274974 |
29810.188 |
hist(rexp(100, rate = 1/10))