Treemap Activity

library(tidyverse)
── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.2.1     ✔ readr     2.2.0
✔ forcats   1.0.1     ✔ stringr   1.6.0
✔ ggplot2   4.0.3     ✔ tibble    3.3.1
✔ lubridate 1.9.5     ✔ tidyr     1.3.2
✔ purrr     1.2.2     
── 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
library(dslabs)
library(treemap)
head(gapminder)
              country year infant_mortality life_expectancy fertility
1             Albania 1960           115.40           62.87      6.19
2             Algeria 1960           148.20           47.50      7.65
3              Angola 1960           208.00           35.98      7.32
4 Antigua and Barbuda 1960               NA           62.97      4.43
5           Argentina 1960            59.87           65.39      3.11
6             Armenia 1960               NA           66.86      4.55
  population          gdp continent          region
1    1636054           NA    Europe Southern Europe
2   11124892  13828152297    Africa Northern Africa
3    5270844           NA    Africa   Middle Africa
4      54681           NA  Americas       Caribbean
5   20619075 108322326649  Americas   South America
6    1867396           NA      Asia    Western Asia
dat1 <- filter(gapminder, year == 2007)
dat1
                           country year infant_mortality life_expectancy
1                          Albania 2007             16.7           76.60
2                          Algeria 2007             26.4           75.30
3                           Angola 2007            117.1           56.20
4              Antigua and Barbuda 2007              9.2           75.30
5                        Argentina 2007             14.1           75.20
6                          Armenia 2007             18.8           72.30
7                            Aruba 2007               NA           74.62
8                        Australia 2007              4.5           81.50
9                          Austria 2007              3.8           80.10
10                      Azerbaijan 2007             39.3           69.10
11                         Bahamas 2007             12.2           71.80
12                         Bahrain 2007              8.5           77.00
13                      Bangladesh 2007             45.9           67.70
14                        Barbados 2007             14.5           75.10
15                         Belarus 2007              6.2           69.70
16                         Belgium 2007              3.9           79.50
17                          Belize 2007             17.6           70.60
18                           Benin 2007             75.2           59.20
19                          Bhutan 2007             40.4           70.30
20                         Bolivia 2007             42.2           70.90
21          Bosnia and Herzegovina 2007              7.1           77.30
22                        Botswana 2007             45.5           52.40
23                          Brazil 2007             17.1           73.00
24                          Brunei 2007              7.3           76.80
25                        Bulgaria 2007             12.3           72.90
26                    Burkina Faso 2007             79.2           57.40
27                         Burundi 2007             72.7           57.90
28                        Cambodia 2007             46.5           65.40
29                        Cameroon 2007             73.1           55.70
30                          Canada 2007              5.1           80.60
31                      Cape Verde 2007             23.6           69.60
32        Central African Republic 2007            106.9           46.20
33                            Chad 2007             98.1           54.00
34                           Chile 2007              7.6           78.30
35                           China 2007             17.2           73.10
36                        Colombia 2007             17.3           75.90
37                         Comoros 2007             67.9           66.60
38                Congo, Dem. Rep. 2007             91.5           57.10
39                     Congo, Rep. 2007             53.1           58.30
40                      Costa Rica 2007              8.9           79.60
41                   Cote d'Ivoire 2007             84.1           54.90
42                         Croatia 2007              5.3           76.00
43                            Cuba 2007              4.8           77.50
44                          Cyprus 2007              3.5           79.80
45                  Czech Republic 2007              3.9           76.80
46                         Denmark 2007              3.7           78.40
47                        Djibouti 2007             67.5           61.50
48              Dominican Republic 2007             29.1           73.70
49                         Ecuador 2007             23.1           74.50
50                           Egypt 2007             27.1           70.30
51                     El Salvador 2007             19.2           73.50
52               Equatorial Guinea 2007             86.3           57.10
53                         Eritrea 2007             43.7           60.10
54                         Estonia 2007              4.8           73.00
55                        Ethiopia 2007             61.0           58.60
56                            Fiji 2007             20.3           64.90
57                         Finland 2007              2.9           79.40
58                          France 2007              3.6           81.00
59                French Polynesia 2007               NA           74.81
60                           Gabon 2007             47.4           61.60
61                          Gambia 2007             54.5           65.30
62                         Georgia 2007             18.6           72.10
63                         Germany 2007              3.7           79.90
64                           Ghana 2007             54.4           61.60
65                          Greece 2007              4.4           79.80
66                       Greenland 2007               NA           70.00
67                         Grenada 2007             12.1           70.70
68                       Guatemala 2007             31.2           71.00
69                          Guinea 2007             79.0           56.80
70                   Guinea-Bissau 2007             83.3           53.20
71                          Guyana 2007             33.9           64.90
72                           Haiti 2007             62.7           60.80
73                        Honduras 2007             23.2           71.60
74                Hong Kong, China 2007               NA           82.31
75                         Hungary 2007              6.5           73.60
76                         Iceland 2007              2.2           82.10
77                           India 2007             51.9           64.30
78                       Indonesia 2007             30.9           69.20
79                            Iran 2007             19.4           72.80
80                            Iraq 2007             31.8           65.30
81                         Ireland 2007              3.9           80.10
82                          Israel 2007              4.1           80.30
83                           Italy 2007              3.6           81.30
84                         Jamaica 2007             16.5           75.30
85                           Japan 2007              2.6           82.40
86                          Jordan 2007             19.3           76.30
87                      Kazakhstan 2007             24.8           65.80
88                           Kenya 2007             49.5           59.80
89                        Kiribati 2007             49.5           61.20
90                     South Korea 2007              4.1           79.40
91                          Kuwait 2007              9.8           77.70
92                 Kyrgyz Republic 2007             31.7           67.00
93                             Lao 2007             65.5           61.70
94                          Latvia 2007              9.6           71.30
95                         Lebanon 2007             10.4           77.50
96                         Lesotho 2007             84.3           43.30
97                         Liberia 2007             76.9           59.30
98                           Libya 2007             17.3           75.50
99                       Lithuania 2007              7.2           71.40
100                     Luxembourg 2007              2.4           80.60
101                   Macao, China 2007               NA           79.10
102                 Macedonia, FYR 2007             11.0           74.30
103                     Madagascar 2007             47.9           62.00
104                         Malawi 2007             64.5           51.00
105                       Malaysia 2007              6.9           74.50
106                       Maldives 2007             15.3           78.10
107                           Mali 2007             90.1           58.00
108                          Malta 2007              5.9           80.90
109                     Mauritania 2007             73.1           67.50
110                      Mauritius 2007             14.1           72.70
111                         Mexico 2007             15.8           75.60
112          Micronesia, Fed. Sts. 2007             35.7           67.90
113                        Moldova 2007             15.5           70.00
114                       Mongolia 2007             30.6           64.40
115                     Montenegro 2007              8.2           75.60
116                        Morocco 2007             31.9           73.10
117                     Mozambique 2007             81.5           53.20
118                        Namibia 2007             42.7           57.50
119                          Nepal 2007             42.0           68.10
120                    Netherlands 2007              4.2           80.20
121                  New Caledonia 2007               NA           75.05
122                    New Zealand 2007              5.3           80.10
123                      Nicaragua 2007             24.4           76.80
124                          Niger 2007             75.2           57.30
125                        Nigeria 2007             90.3           58.30
126                         Norway 2007              3.0           80.60
127                           Oman 2007             10.4           76.00
128                       Pakistan 2007             77.4           63.80
129                         Panama 2007             18.5           77.30
130               Papua New Guinea 2007             53.8           58.20
131                       Paraguay 2007             22.4           74.00
132                           Peru 2007             19.0           77.90
133                    Philippines 2007             26.4           69.70
134                         Poland 2007              6.0           75.20
135                       Portugal 2007              3.3           79.20
136                    Puerto Rico 2007               NA           76.90
137                          Qatar 2007              8.4           77.30
138                        Romania 2007             15.3           73.30
139                         Russia 2007             12.4           67.70
140                         Rwanda 2007             56.8           63.10
141                      St. Lucia 2007             14.6           73.70
142 St. Vincent and the Grenadines 2007             19.2           70.80
143                          Samoa 2007             16.2           72.10
144                   Saudi Arabia 2007             16.0           78.20
145                        Senegal 2007             51.9           63.00
146                         Serbia 2007              7.1           74.00
147                     Seychelles 2007             12.2           72.60
148                   Sierra Leone 2007            120.5           53.00
149                      Singapore 2007              2.3           80.40
150                Slovak Republic 2007              7.8           74.60
151                       Slovenia 2007              3.2           78.20
152                Solomon Islands 2007             27.6           61.90
153                   South Africa 2007             48.6           53.00
154                          Spain 2007              4.4           80.80
155                      Sri Lanka 2007             10.7           74.40
156                          Sudan 2007             57.1           65.30
157                       Suriname 2007             24.3           70.10
158                      Swaziland 2007             74.7           44.30
159                         Sweden 2007              2.7           80.90
160                    Switzerland 2007              4.1           81.70
161                          Syria 2007             14.8           75.90
162                     Tajikistan 2007             49.2           69.20
163                       Tanzania 2007             51.5           59.10
164                       Thailand 2007             14.0           73.80
165                    Timor-Leste 2007             60.7           69.20
166                           Togo 2007             64.1           57.50
167                          Tonga 2007             14.5           70.20
168            Trinidad and Tobago 2007             22.8           71.50
169                        Tunisia 2007             17.5           76.60
170                         Turkey 2007             20.2           77.40
171                   Turkmenistan 2007             54.7           66.80
172                         Uganda 2007             59.2           55.30
173                        Ukraine 2007             11.6           67.60
174           United Arab Emirates 2007              8.0           75.60
175                 United Kingdom 2007              4.9           79.50
176                  United States 2007              6.6           78.10
177                        Uruguay 2007             11.5           75.70
178                     Uzbekistan 2007             43.3           69.20
179                        Vanuatu 2007             23.6           63.20
180                      Venezuela 2007             15.0           74.40
181             West Bank and Gaza 2007             21.3           74.30
182                        Vietnam 2007             21.4           73.80
183                          Yemen 2007             49.4           65.20
184                         Zambia 2007             61.3           49.00
185                       Zimbabwe 2007             59.9           46.40
    fertility population          gdp continent                    region
1        1.80    3010849 5.330153e+09    Europe           Southern Europe
2        2.66   34261971 7.308519e+10    Africa           Northern Africa
3        6.52   19183907 2.167467e+10    Africa             Middle Africa
4        2.18      84397 1.009354e+09  Americas                 Caribbean
5        2.25   39969903 3.696145e+11  Americas             South America
6        1.40    2988117 4.378220e+09      Asia              Western Asia
7        1.74     101218           NA  Americas                 Caribbean
8        1.92   20975949 5.227297e+11   Oceania Australia and New Zealand
9        1.38    8301290 2.244241e+11    Europe            Western Europe
10       1.99    8763359 1.669610e+10      Asia              Western Asia
11       1.88     342259 7.143393e+09  Americas                 Caribbean
12       2.29    1026568 1.238003e+10      Asia              Western Asia
13       2.44  146592687 6.967090e+10      Asia             Southern Asia
14       1.83     276154 2.657506e+09  Americas                 Caribbean
15       1.39    9556061 2.186311e+10    Europe            Eastern Europe
16       1.80   10704830 2.662437e+11    Europe            Western Europe
17       2.97     298403 1.147050e+09  Americas           Central America
18       5.37    8707637 2.969567e+09    Africa            Western Africa
19       2.59     681471 8.009574e+08      Asia             Southern Asia
20       3.55    9441482 1.071470e+10  Americas             South America
21       1.21    3840418 7.957051e+09    Europe           Southern Europe
22       2.91    1930431 8.019554e+09    Africa           Southern Africa
23       1.94  192784521 8.157034e+11  Americas             South America
24       2.12     374459 6.952621e+09      Asia        South-Eastern Asia
25       1.40    7568378 1.910146e+10    Europe            Eastern Europe
26       6.12   14264002 3.961301e+09    Africa            Western Africa
27       6.57    8514578 1.027346e+09    Africa            Eastern Africa
28       3.10   13728700 6.971897e+09      Asia        South-Eastern Asia
29       5.24   19078100 1.291271e+10    Africa             Middle Africa
30       1.66   32982275 8.637384e+11  Americas          Northern America
31       2.66     481278 8.384718e+08    Africa            Western Africa
32       4.90    4202104 9.837153e+08    Africa             Middle Africa
33       6.90   10779504 3.030065e+09    Africa             Middle Africa
34       1.90   16462701 1.014656e+11  Americas             South America
35       1.53 1319625197 2.456673e+12      Asia              Eastern Asia
36       2.45   44374647 1.367438e+11  Americas             South America
37       5.11     649404 2.355439e+08    Africa            Eastern Africa
38       6.55   59834875 5.950215e+09    Africa             Middle Africa
39       5.11    3715665 4.106749e+09    Africa             Middle Africa
40       1.95    4369465 2.287521e+10  Americas           Central America
41       4.93   18862172 1.066768e+10    Africa            Western Africa
42       1.41    4357114 2.950713e+10    Europe           Southern Europe
43       1.52   11284043 4.694085e+10  Americas                 Caribbean
44       1.50    1063040 1.195476e+10      Asia              Western Asia
45       1.39   10330487 8.131235e+10    Europe            Eastern Europe
46       1.85    5466988 1.789571e+11    Europe           Northern Europe
47       3.83     799309 7.028555e+08    Africa            Eastern Africa
48       2.69    9504336 3.425854e+10  Americas                 Caribbean
49       2.77   14205479 2.242087e+10  Americas             South America
50       2.99   77605327 1.358688e+11    Africa           Northern Africa
51       2.35    5986414 1.591771e+10  Americas           Central America
52       5.39     665798 5.148299e+09    Africa             Middle Africa
53       5.27    4406299 8.051948e+08    Africa            Eastern Africa
54       1.60    1344233 9.488929e+09    Europe           Northern Europe
55       5.35   80891968 1.380289e+10    Africa            Eastern Africa
56       2.77     834729 1.917140e+09   Oceania                 Melanesia
57       1.83    5289333 1.525226e+11    Europe           Northern Europe
58       1.96   61966193 1.505322e+12    Europe            Western Europe
59       2.18     260361           NA   Oceania                 Polynesia
60       4.30    1440902 5.898574e+09    Africa             Middle Africa
61       5.80    1536424 1.011867e+09    Africa            Western Africa
62       1.76    4385885 5.351427e+09      Asia              Western Asia
63       1.36   80854515 2.081124e+12    Europe            Western Europe
64       4.26   22528041 7.208793e+09    Africa            Western Africa
65       1.43   11131302 1.648566e+11    Europe           Southern Europe
66       2.30      56896 1.231424e+09  Americas          Northern America
67       2.30     103587 6.042228e+08  Americas                 Caribbean
68       4.20   13797629 2.508459e+10  Americas           Central America
69       5.42   10152521 5.150498e+09    Africa            Western Africa
70       5.32    1527342 2.221664e+08    Africa            Western Africa
71       2.75     745638 8.305893e+08  Americas             South America
72       3.58    9556958 3.767706e+09  Americas                 Caribbean
73       3.34    7133737 1.009378e+10  Americas           Central America
74       1.02    6878566 2.357829e+11      Asia              Eastern Asia
75       1.32   10064138 5.916963e+10    Europe            Eastern Europe
76       2.11     305415 1.189725e+10    Europe           Northern Europe
77       2.69 1179685631 7.900883e+11      Asia             Southern Asia
78       2.49  232296830 2.332438e+11      Asia        South-Eastern Asia
79       1.87   71720859 1.518026e+11      Asia             Southern Asia
80       4.41   28423538 2.049620e+10      Asia              Western Asia
81       2.00    4388612 1.374321e+11    Europe           Northern Europe
82       2.91    6920762 1.541534e+11      Asia              Western Asia
83       1.37   59138599 1.204797e+12    Europe           Southern Europe
84       2.41    2704606 1.029704e+10  Americas                 Caribbean
85       1.33  127250015 5.217808e+12      Asia              Eastern Asia
86       3.64    5759424 1.347844e+10      Asia              Western Asia
87       2.46   15755242 3.611370e+10      Asia              Central Asia
88       4.82   37250540 1.726229e+10    Africa            Eastern Africa
89       3.19      96310 7.600801e+07   Oceania                Micronesia
90       1.21   48205062 7.344787e+11      Asia              Eastern Asia
91       2.67    2538591 6.144030e+10      Asia              Western Asia
92       2.73    5228937 1.845753e+09      Asia              Central Asia
93       3.48    5939634 2.738303e+09      Asia        South-Eastern Asia
94       1.47    2171378 1.433084e+10    Europe           Northern Europe
95       1.62    4085426 2.247986e+10      Asia              Western Asia
96       3.41    1955656 9.400079e+08    Africa           Southern Africa
97       5.28    3522337 7.550262e+08    Africa            Western Africa
98       2.69    6017794 4.659762e+10    Africa           Northern Africa
99       1.39    3264304 1.971072e+10    Europe           Northern Europe
100      1.62     474705 2.706632e+10    Europe            Western Europe
101      0.91     493022 1.387694e+10      Asia              Eastern Asia
102      1.49    2051427 4.322520e+09    Europe           Southern Europe
103      4.87   19371031 4.841664e+09    Africa            Eastern Africa
104      5.84   13498377 2.192483e+09    Africa            Eastern Africa
105      2.09   26730607 1.332476e+11      Asia        South-Eastern Asia
106      2.41     315515 1.080295e+09      Asia             Southern Asia
107      6.81   13759226 3.617791e+09    Africa            Western Africa
108      1.38     403076 4.409988e+09    Europe           Southern Europe
109      4.99    3328285 1.959519e+09    Africa            Western Africa
110      1.63    1232997 5.862116e+09    Africa            Eastern Africa
111      2.38  113139374 6.917040e+11  Americas           Central America
112      3.66     105080 2.351388e+08   Oceania                Micronesia
113      1.49    4128459 1.958977e+09    Europe            Eastern Europe
114      2.32    2592776 1.862676e+09      Asia              Eastern Asia
115      1.73     618592 1.359294e+09    Europe           Southern Europe
116      2.40   31011322 5.223958e+10    Africa           Northern Africa
117      5.59   22359637 7.395431e+09    Africa            Eastern Africa
118      3.44    2083174 5.610147e+09    Africa           Southern Africa
119      3.05   26063619 6.938461e+09      Asia             Southern Asia
120      1.72   16463031 4.417917e+11    Europe            Western Europe
121      2.23     235854           NA   Oceania                 Melanesia
122      2.11    4238021 6.508412e+10   Oceania Australia and New Zealand
123      2.76    5522119 4.962900e+09  Americas           Central America
124      7.59   14527631 2.390581e+09    Africa            Western Africa
125      6.02  147152502 6.998038e+10    Africa            Western Africa
126      1.90    4716584 1.973333e+11    Europe           Northern Europe
127      2.89    2593750 2.661659e+10      Asia              Western Asia
128      3.65  159767672 1.058797e+11      Asia             Southern Asia
129      2.64    3438398 1.745942e+10  Americas           Central America
130      4.12    6387470 4.198262e+09   Oceania                 Melanesia
131      3.12    5966160 8.937744e+09  Americas             South America
132      2.61   28292768 7.677576e+10  Americas             South America
133      3.33   88965508 1.137828e+11      Asia        South-Eastern Asia
134      1.31   38500356 2.261492e+11    Europe            Eastern Europe
135      1.37   10550695 1.269393e+11    Europe           Southern Europe
136      1.71    3738549 6.702667e+10  Americas                 Caribbean
137      2.30    1178955 3.702389e+10      Asia              Western Asia
138      1.33   20979708 5.592698e+10    Europe            Eastern Europe
139      1.41  143180249 4.105052e+11    Europe            Eastern Europe
140      5.17    9481083 2.887905e+09    Africa            Eastern Africa
141      2.02     170146 8.496882e+08  Americas                 Caribbean
142      2.13     109049 5.346053e+08  Americas                 Caribbean
143      4.45     182238 3.410113e+08   Oceania                 Polynesia
144      3.05   26083522 2.388336e+11      Asia              Western Asia
145      5.14   11897230 6.334999e+09    Africa            Western Africa
146      1.42    9130353 8.613916e+09    Europe           Southern Europe
147      2.28      90841 7.159537e+08    Africa            Eastern Africa
148      5.23    5391108 1.377335e+09    Africa            Western Africa
149      1.29    4732785 1.433800e+11      Asia        South-Eastern Asia
150      1.29    5391728 4.369061e+10    Europe            Eastern Europe
151      1.40    2017452 2.699827e+10    Europe           Southern Europe
152      4.41     492075 5.426336e+08   Oceania                 Melanesia
153      2.58   49693580 1.787490e+11    Africa           Southern Africa
154      1.40   45209538 7.338206e+11    Europe           Southern Europe
155      2.31   19813816 2.281173e+10      Asia             Southern Asia
156      4.87   33637960 1.966907e+10    Africa           Northern Africa
157      2.44     500953 1.285842e+09  Americas             South America
158      3.76    1134853 1.809107e+09    Africa           Southern Africa
159      1.89    9153316 3.042588e+11    Europe           Northern Europe
160      1.46    7560141 2.864503e+11    Europe            Western Europe
161      3.24   19425597 2.729102e+10      Asia              Western Asia
162      3.67    7099021 1.430153e+09      Asia              Central Asia
163      5.59   41522004 1.637482e+10    Africa            Eastern Africa
164      1.50   66353572 1.737435e+11      Asia        South-Eastern Asia
165      6.59    1021235 3.395794e+08      Asia        South-Eastern Asia
166      4.92    5890414 1.455997e+09    Africa            Western Africa
167      4.06     102169 2.063831e+08   Oceania                 Polynesia
168      1.79    1309260 1.420424e+10  Americas                 Caribbean
169      2.04   10298717 2.987768e+10    Africa           Northern Africa
170      2.17   69515492 3.726192e+11      Asia              Western Asia
171      2.52    4858235 7.823776e+09      Asia              Central Asia
172      6.43   29991958 1.028711e+10    Africa            Eastern Africa
173      1.35   46249196 5.236765e+10    Europe            Eastern Europe
174      2.00    6010100 1.536638e+11      Asia              Western Asia
175      1.84   61151820 1.806907e+12    Europe           Northern Europe
176      2.12  301655953 1.166093e+13  Americas          Northern America
177      2.12    3339750 2.554496e+10  Americas             South America
178      2.47   26586701 2.103838e+10      Asia              Central Asia
179      3.68     219956 3.273824e+08   Oceania                 Melanesia
180      2.56   27670659 1.587866e+11  Americas             South America
181      4.48    3754693           NA      Asia              Western Asia
182      1.88   85770717 5.255039e+10      Asia        South-Eastern Asia
183      5.01   21701105 1.262499e+10      Asia              Western Asia
184      5.91   12738676 4.617450e+09    Africa            Eastern Africa
185      3.90   13297798 4.239316e+09    Africa            Eastern Africa
dat2 <- dat1 |> group_by(continent) |> summarize(total_population = sum(population))
dat2
# A tibble: 5 × 2
  continent total_population
  <fct>                <dbl>
1 Africa           948156290
2 Americas         911419886
3 Asia            3911346015
4 Europe           730984863
5 Oceania           34130212
treemap(dat2,
        index = "continent",
        vSize = "total_population",
        palette="RdYlBu",
        title = "World Population by Continent in 2007")