knitr::opts_chunk$set(echo = FALSE)
## Warning: package 'rvest' was built under R version 4.2.1
## Warning: package 'janitor' was built under R version 4.2.1
##
## Attaching package: 'janitor'
## The following objects are masked from 'package:stats':
##
## chisq.test, fisher.test
## Warning: package 'tidyverse' was built under R version 4.2.1
## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──
## ✔ ggplot2 3.3.6 ✔ purrr 0.3.4
## ✔ tibble 3.1.7 ✔ dplyr 1.0.9
## ✔ tidyr 1.2.0 ✔ stringr 1.4.0
## ✔ readr 2.1.2 ✔ forcats 0.5.1
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ readr::guess_encoding() masks rvest::guess_encoding()
## ✖ dplyr::lag() masks stats::lag()
## Warning: package 'Lahman' was built under R version 4.2.1
## # A tibble: 23 × 3
## Year number_of_billionaires groups_combined_net_worth
## <chr> <chr> <chr>
## 1 2021[9] 2,755 $13.1 trillion
## 2 2020 2,095 $8.0 trillion
## 3 2019 2,153 $8.7 trillion
## 4 2018 2,208 $9.1 trillion
## 5 2017 2,043 $7.7 trillion
## 6 2016 1,810 $6.5 trillion
## 7 2015[16] 1,826 $7.1 trillion
## 8 2014[61] 1,645 $6.4 trillion
## 9 2013[62] 1,426 $5.4 trillion
## 10 2012 1,226 $4.6 trillion
## # … with 13 more rows
## # A tibble: 23 × 3
## year number_of_billionaires groups_combined_net_worth
## <chr> <chr> <chr>
## 1 2021[9] 2,755 $13.1 trillion
## 2 2020 2,095 $8.0 trillion
## 3 2019 2,153 $8.7 trillion
## 4 2018 2,208 $9.1 trillion
## 5 2017 2,043 $7.7 trillion
## 6 2016 1,810 $6.5 trillion
## 7 2015[16] 1,826 $7.1 trillion
## 8 2014[61] 1,645 $6.4 trillion
## 9 2013[62] 1,426 $5.4 trillion
## 10 2012 1,226 $4.6 trillion
## # … with 13 more rows
## Saving 7 x 5 in image
