The Top Billionaires
Stanley
2022-05-05
This is a simple dataset.
Source: https://www.kaggle.com/datasets/alexandrparkhomenko/the-top-billionaires
data=read_csv("The Top Billionaires.csv")## Rows: 10 Columns: 6
## -- Column specification --------------------------------------------------------
## Delimiter: ","
## chr (1): NAME
## dbl (5): 2018, 2019, 2020, 2021, 2022
##
## i Use `spec()` to retrieve the full column specification for this data.
## i Specify the column types or set `show_col_types = FALSE` to quiet this message.data## # A tibble: 10 x 6
## NAME `2018` `2019` `2020` `2021` `2022`
## <chr> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 Elon Musk 19.9 22.3 24.6 151 219
## 2 Jeff Bezos 112 131 113 177 171
## 3 Bernard Arnault 72 76 76 150 158
## 4 Bill Gates 90 96.5 98 124 129
## 5 Warren Buffett 84 82.5 67.5 96 118
## 6 Larry Page 48.8 50.8 50.9 91.5 111
## 7 Sergey Brin 47.5 49.8 49.1 89 107
## 8 Larry Ellison 58.5 62.5 59 93 106
## 9 Steve Ballmer 38.4 41.2 52.7 68.7 91.4
## 10 Mukesh Ambani 40.1 50 36.8 84.5 90.7data_diff=round(((data[3:6]/data[2:5])-1)*100,2)
data_diff=cbind(data[1],data_diff)
data_diff=data_diff%>%pivot_longer(-NAME,names_to="YEAR", values_to = "PERCENTAGE")
data_diff## # A tibble: 40 x 3
## NAME YEAR PERCENTAGE
## <chr> <chr> <dbl>
## 1 Elon Musk 2019 12.1
## 2 Elon Musk 2020 10.3
## 3 Elon Musk 2021 514.
## 4 Elon Musk 2022 45.0
## 5 Jeff Bezos 2019 17.0
## 6 Jeff Bezos 2020 -13.7
## 7 Jeff Bezos 2021 56.6
## 8 Jeff Bezos 2022 -3.39
## 9 Bernard Arnault 2019 5.56
## 10 Bernard Arnault 2020 0
## # ... with 30 more rowsggplot(data_diff)+geom_line(aes(x=YEAR,y=PERCENTAGE,group=NAME,color=NAME))+theme_classic()+labs(title="Percentage Change of Top 10 Billionaries Wealth")
If we look at the percentage change, they all have similar direction and magnitude. The only special case is Elon Musk. He had a more than 500% increase of wealth from 2020 to 2021!