function (expr)
{
enexpr(expr)
}
<bytecode: 0x12d03d7a0>
<environment: namespace:rlang>DC_Notes
Adjusting the emissions data to match the accountinng measures we can start comparing country production and consumption emissions and how they relate to GDP and population growth for different countries.
In The year 2018 we find that in terms of production these countries rank the highest in terms of production emissions.
# A tibble: 57 × 4
year country prod_emissions prod_lulu
<dbl> <chr> <dbl> <dbl>
1 2018 China 15546. 13770.
2 2018 United States 6715. 6500.
3 2018 India 4070. 3841.
4 2018 Japan 1555. 1477.
5 2018 Brazil 1357. 1551.
6 2018 Germany 1255. 1171.
7 2018 Indonesia 1166. 1816.
8 2018 Canada 1041. 1058.
9 2018 Mexico 970. 877.
10 2018 Saudi Arabia 788. 810.
# … with 47 more rowsHowever if we discount land use and forestry regulation the raking is a little different
# A tibble: 57 × 4
year country prod_emissions prod_lulu
<dbl> <chr> <dbl> <dbl>
1 2018 China 15546. 13770.
2 2018 United States 6715. 6500.
3 2018 India 4070. 3841.
4 2018 Indonesia 1166. 1816.
5 2018 Brazil 1357. 1551.
6 2018 Japan 1555. 1477.
7 2018 Germany 1255. 1171.
8 2018 Canada 1041. 1058.
9 2018 Mexico 970. 877.
10 2018 Saudi Arabia 788. 810.
# … with 47 more rowsThe same happens to global consumption emissions.
# A tibble: 57 × 3
country cons_lulu cons_emissions
<chr> <dbl> <dbl>
1 China 10919. 12695.
2 United States 6654. 6870.
3 India 3256. 3485.
4 Japan 1333. 1411.
5 Brazil 1462. 1268.
6 Indonesia 1717. 1067.
7 Germany 904. 988.
8 Mexico 676. 770.
9 Saudi Arabia 742. 720.
10 Canada 735. 718.
# … with 47 more rowsA similar group of countries appear at the top however the order varies depending on the metric used
# A tibble: 57 × 3
country cons_lulu cons_emissions
<chr> <dbl> <dbl>
1 China 10919. 12695.
2 United States 6654. 6870.
3 India 3256. 3485.
4 Indonesia 1717. 1067.
5 Brazil 1462. 1268.
6 Japan 1333. 1411.
7 Germany 904. 988.
8 Saudi Arabia 742. 720.
9 Canada 735. 718.
10 Mexico 676. 770.
# … with 47 more rowsNow looking at the effects of GDP and population growth we can see that the following countries have a higher percentage increase for each percent increase in population. The following values come from the beta coefficients calculated from the historical performance data of select countries from 1995 to 2018.
# A tibble: 57 × 2
# Groups: country [57]
country CurrentGDP
<chr> <dbl>
1 Latvia 1.06
2 Vietnam 0.762
3 Cambodia 0.678
4 Morocco 0.599
5 Singapore 0.546
6 Saudi Arabia 0.507
7 India 0.498
8 Tunisia 0.488
9 Slovenia 0.474
10 Thailand 0.439
# … with 47 more rowsAnd these are the countries that show a higher percent decrease for each percentage of GDP growth.
# A tibble: 57 × 2
# Groups: country [57]
country CurrentGDP
<chr> <dbl>
1 Sweden -0.518
2 United Kingdom -0.313
3 Finland -0.291
4 Costa Rica -0.213
5 France -0.191
6 Romania -0.161
7 Brazil -0.157
8 Belgium -0.152
9 Cyprus -0.0938
10 Croatia -0.0721
# … with 47 more rowsLooking at emissions now we can see that the countries below rank the highest in terms in percent increase per percent population growth.
# A tibble: 57 × 2
# Groups: country [57]
country pop
<chr> <dbl>
1 Slovenia 12.8
2 Vietnam 9.27
3 China 9.23
4 Greece 7.36
5 Poland 5.51
6 Hungary 4.28
7 Cambodia 3.83
8 Thailand 3.00
9 Morocco 2.96
10 India 2.95
# … with 47 more rowsAnd lastly we can see these countries that have a negative correlation between percent emissions per percent GDP growth.
# A tibble: 57 × 2
# Groups: country [57]
country pop
<chr> <dbl>
1 Latvia -8.89
2 Finland -7.93
3 Denmark -7.82
4 Singapore -6.71
5 Sweden -3.69
6 Italy -3.48
7 United Kingdom -2.73
8 Netherlands -2.53
9 Chile -1.04
10 Brazil -0.978
# … with 47 more rows