Às vezes eu me proponho como desafio tentar replicar alguma visualização interessante. Há um tempo atrás eu estava navegando o Our World in Data e encontrei alguns gráficos interessantes relacionando variáveis socio-econômicas com indicadores subjetivos de bem-estar e felicade. Há várias maneiras de mensurar o bem-estar e eu achei interessante

## 'data.frame':    156 obs. of  9 variables:
##  $ Overall rank                : int  1 2 3 4 5 6 7 8 9 10 ...
##  $ Country or region           : chr  "Finland" "Norway" "Denmark" "Iceland" ...
##  $ Score                       : num  7.63 7.59 7.55 7.5 7.49 ...
##  $ GDP per capita              : num  1.3 1.46 1.35 1.34 1.42 ...
##  $ Social support              : num  1.59 1.58 1.59 1.64 1.55 ...
##  $ Healthy life expectancy     : num  0.874 0.861 0.868 0.914 0.927 0.878 0.896 0.876 0.913 0.91 ...
##  $ Freedom to make life choices: num  0.681 0.686 0.683 0.677 0.66 0.638 0.653 0.669 0.659 0.647 ...
##  $ Generosity                  : num  0.202 0.286 0.284 0.353 0.256 0.333 0.321 0.365 0.285 0.361 ...
##  $ Perceptions of corruption   : chr  "0.393" "0.340" "0.408" "0.138" ...
## Joining, by = "country"
## Joining, by = "country"
country rank_hpi rank_hdi rank_whr
Afghanistan 76 99 145
Albania 9 47 112
Algeria 21 55 84
Argentina 15 34 29
Armenia 52 54 129
Australia 73 3 10
Austria 30 16 12
Bangladesh 5 82 115
Belarus 70 38 73
Belgium 63 14 16
Belize 20 66 49
Benin 92 96 136
Bhutan 40 81 97
Bosnia and Herzegovina 54 51 93
Botswana 86 64 146
Brazil 18 52 28
Bulgaria 75 36 100
Burkina Faso 81 106 121
Burundi 88 108 156
Cambodia 53 86 120
Cameroon 85 90 99
Canada 61 10 7
Chad 94 109 131
Chile 25 31 25
China 52 56 86
Colombia 2 59 37
Costa Rica 1 42 13
Croatia 33 33 82
Cyprus 29 26 61
Denmark 23 9 3
Dominican Republic 32 61 83
Ecuador 7 56 48
Egypt 62 70 122
El Salvador 13 73 40
Estonia 81 24 63
Ethiopia 48 101 127
Finland 27 12 1
France 31 19 23
Gabon 82 68 103
Georgia 28 48 128
Germany 35 5 15
Ghana 72 83 108
Greece 64 25 79
Guatemala 19 77 30
Guinea 87 102 140
Haiti 40 99 148
Honduras 47 80 72
Hungary 50 32 69
Iceland 28 6 4
India 36 79 133
Indonesia 12 71 96
Iraq 49 72 117
Ireland 34 4 14
Israel 39 18 11
Italy 43 22 47
Jamaica 8 63 56
Japan 41 15 54
Kazakhstan 79 41 60
Kenya 60 84 124
Kyrgyzstan 22 74 92
Latvia 83 30 53
Lebanon 69 53 80
Lesotho 85 94 141
Liberia 67 105 149
Lithuania 74 28 50
Luxembourg 93 17 17
Malawi 68 100 147
Malaysia 32 40 35
Malta 38 23 22
Mauritania 80 94 126
Mauritius 46 44 55
Mexico 2 49 24
Mongolia 91 60 94
Montenegro 56 35 81
Morocco 23 75 85
Mozambique 63 104 123
Myanmar 58 87 130
Namibia 71 78 119
Nepal 30 88 101
Netherlands 14 8 6
New Zealand 27 13 8
Nicaragua 4 76 41
Niger 84 110 134
Nigeria 67 92 91
Norway 9 1 2
Pakistan 26 89 75
Panama 3 45 27
Paraguay 65 68 64
Peru 17 58 65
Philippines 16 69 71
Poland 45 27 42
Portugal 57 30 77
Romania 39 37 52
Rwanda 77 93 151
Senegal 69 97 109
Serbia 38 46 78
Sierra Leone 89 107 113
Slovakia 42 29 39
Slovenia 59 20 51
South Africa 87 69 105
Spain 11 21 36
Sri Lanka 20 50 116
Sweden 44 7 9
Switzerland 18 2 5
Tajikistan 19 77 88
Thailand 6 54 46
Togo 93 98 139
Tunisia 51 62 111
Turkey 50 43 74
Turkmenistan 90 67 68
Uganda 78 95 135
Ukraine 50 57 138
United Kingdom 24 11 19
Uruguay 10 39 31
Uzbekistan 37 65 44
Yemen 66 103 152
Zambia 55 85 125
Zimbabwe 68 91 144