Do regulations have any effect in reducing the amount of GHG emissions?
We can start with a high level view and plot the ghg emissions per country to determine if certain areas have much higher amounts of emissions compared to others and to get a basic sense of which countries pollute the most.
China and US have are by far the greatest GHG emitters. Next, we see Brazil, Russia, India, Japan, and others with noticeable amounts of GHG emissions. The other countries seem to have much lower amounts of emissions, however it looks like overall the more developed countries are emitting more.
We will limit our analysis to the countries with the highest total GHG emissions. We decided that it would be more insightful to analyze this subset of countries as they have the most impact on climate change. For our subset, we chose the top countries making up 80% of the global GHG emissions.
As shown in the above plot, there are 29 countries making up the top 80% of global emissions. US and China account for nearly 1/3 of global emissions at 31% while the other countries are more balanced in emissions.
Now that we have a subset of important countries to analyze, we want to determine if regulations have any impact on reducing GHG emissions. In particular, we will focus on the Kyoto Protocol which was an international treaty where parties are committed to reduce green house gas emissions. The Kyoto Protocol was effective as of February 16, 2005 and is currently ongoing for its second commitment period. We have manually checked on the United Nations Climate Change website that all 29 countries of interest were part of the protocol as of 2005 (as the data was not available for use).
Note that Canada withdrew in December 2012 however for this analysis we will examine the impact of the protocol being implemented as of 2005 and onward. As well, since the emission data is yearly we will assume that the emissions for year 2005 were under the Kyoto Protocol.
First let’s see how the Kyoto Protocol effected the global GHG emissions.
Just from eyeballing the plot it doesn’t look like the Kyoto Protocol had any impact on global GHG emissions as it seems to be climbing at the same rate as it was before the protocol. To confirm this, we will attempt to apply intervention analysis by modelling the time series as a regression with arima errors and determine if the coefficient is significant. The model is expressed as:
\(y_t = \beta_0 + \beta_1 x_t + \eta_t\) where \(\eta'_t = \phi_1 \eta'_{t-1} + \varepsilon_t\) [1]
\(x_t\) is a vector of 0,1 where it’s 0 if is before the Kyoto Protocol effective date and 1 if after.
Note, this simply checks for constant changes to the mean value.
With this definition we get the following regression with arima errors model
## Series: .
## Regression with ARIMA(2,0,0) errors
##
## Coefficients:
## ar1 ar2 intercept xreg
## 1.6464 -0.6582 39893.183 268.3900
## s.e. 0.1450 0.1486 5470.364 493.7005
##
## sigma^2 estimated as 400068: log likelihood=-197.23
## AIC=404.46 AICc=407.62 BIC=410.55
##
## Training set error measures:
## ME RMSE MAE MPE MAPE MASE
## Training set 165.3836 579.7044 431.8415 0.3898579 1.116764 0.6609637
## ACF1
## Training set -0.2412943
The best model found using the AIC is a regression with errors ARIMA(2,0,0) meaning it’s auto regressive only. It has fairly good performance metrics on the training set. Now we analyze residuals.
##
## Ljung-Box test
##
## data: Residuals from Regression with ARIMA(2,0,0) errors
## Q* = 5.4648, df = 3, p-value = 0.1408
##
## Model df: 4. Total lags used: 7
From the Ljung-Box test we get a p-value of 0.1408 which is fairly high so we can conclude that there’s no autocorrelation between the errors. As well, the residuals seem to follow a normal distribution from the qq-plot shown and also seems like random noise which indicates that the model has captured the proper patterns. Thus, the regression model with arima errors does a good job of modelling the time series.
##
## z test of coefficients:
##
## Estimate Std. Error z value Pr(>|z|)
## ar1 1.64637 0.14503 11.3519 < 2.2e-16 ***
## ar2 -0.65822 0.14861 -4.4292 9.458e-06 ***
## intercept 39893.18297 5470.36447 7.2926 3.040e-13 ***
## xreg 268.38997 493.70049 0.5436 0.5867
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
From the output above of the p-values for the parameters it shows that xreg is not significant at all with a very high p-value of 0.5867. Thus we can conclude since the xreg parameter was not significant, then it does not add much information for the model and that the period after the Kyoto Protocol start date was not much different from before. Therefore the Kyoto Protocol didn’t have much impact on global GHG emissions!
We suspect that this might not be true for certain countries. Some countries might have actually shown a significant change in their ghg emissions after the Kyoto Protocol. We will apply the same process as we did for World emissions but for our 29 countries of interest. Let’s start by viewing the ghg emissions over time for all countries.
By eyeballing the plot, it does not seem like any single country’s GHG emissions changed much after the Kyoto Protocol in 2005. We can determine the significance by modelling all the countries each with a regression with arima errors. As we are doing multiple hypothesis tests, we will have to be more careful and apply the Bonferroni correction using an an alpha of \(0.05 / n\) where \(n\) is the number of tests. Note, there is some controversy about this correction however it is simple for now.
## [1] "Indonesia P-value: 6.0235477544006e-09"
From the output Indonesia is the only country that had a significant p-value, in this case of 6.02e-09 which is extremely significant. Let’s view its emissions overtime to see what was found.
Since 2005, Indonesia has had a major increase in its GHG emissions and so the Kyoto Protocol doesn’t seem to have had an effect in reducing Indonesia’s GHG emissions. And neither did it have an effect for any of the other 28 countries either as they had non-significant p-values. Therefore, we can conclude that even at the per country level the Kyoto Protocol doesn’t seem to have had an impact in reducing GHG emissions. This confirms what we initially saw from the plot above as well.
So even after the Kyoto Protocol was implemented there was no significant change in GHG emissions, but how active were countries in creating regulations relating to climate change after the Kyoto protocol was put into place?
We can attempt to answer this question by simply viewing the number of regulations total that were put into place in between 2005-2019 and 1991-2005. We can compare the number of regulations created between Kyoto Protocol start until present date with between 1991 to Kyoto Protocol start. This gives 14 years on either sides pre/post protocol to compare with. For this analysis, we will include all countries.
Looks like there have been many more regulations that have been created after 2005 than before 2005 for the same time ranges. Just to confirm we will do a paired t-test of difference of means
##
## Paired t-test
##
## data: regulations_compare$pre_kyoto and regulations_compare$post_kyoto
## t = -17.336, df = 197, p-value < 2.2e-16
## alternative hypothesis: true difference in means is less than 0
## 95 percent confidence interval:
## -Inf -5.738715
## sample estimates:
## mean of the differences
## -6.343434
As expected from just viewing the data, the p-value is extremely low of 2.2e-16 so we reject the null and we can say the means are significantly different from each other. This allows us to conclude that yes from 2005-2019 there have been more regulations than in 1991-2005 created by countries indicating that they are more active in climate change prevention, however we cannot necessarily conclude that it was due to the Kyoto Protocol. Note, we did not take into account the types or impacts of each individual regulation.
Overall, no the Kyoto Protocol did not have any significant impact on the reduction of GHG emissions however countries have been more active in creating regulations concerning climate change since the Kyoto Protocol was initiated, whether it was due to the Kyoto Protocol or not. So even though countries have been more active, it doesn’t show in the GHG emissions. This could be due to either regulations aren’t strict enough or perhaps targeted parties, or industries aren’t following the regulations, or even that the regulations aren’t targeting the biggest causes of GHG emissions. However, regardless of the reason we can definitely conclude that there needs to be more effort in order to reduce GHG emissions and that prior efforts have had little effect.
A better method for Intervention Analysis could’ve been applied to compare the time series before and after the Kyoto Protocol adoption
The exact GHG emissions used was total_ghg_emissions_including_land_use_change_and_forestry_mt_co_e as this included all emissions contributing to climate change
Better method for handling multiple hypothesis testing could’ve been applied. In this case, even if we did not account for it none of the results would’ve changed
For regulations per country, each regulation was counted equally and we did not take into account how one regulation has a larger impact than others in terms of what the regulation actually does
80% top country ghg emissions chosen was a bit arbitrary
Not all countries were admitted to the Kyoto Protocol at the same time at 2005. Since the data was not available for use we made the assumption that they all joined at 2005.
Acquire monthly data to give more data points
View GHG emissions per capita instead. Population rises exponentially and has grown by a lot 6.5B in 2005 to 7.5B in 2019 so 1B change so of course we would expect that to cause greater emissions. We wouldn’t be surprised to see that the emissions per capita actually were affected after the Kyoto Protocol in 2005.
It would also be interesting to see the effects of regulations on a country and subsector view as we would expect certain industries to behave much more differently than others. The following plot shows for Canada the total GHG emissions per subsector and the points on the lines represent that a regulation was created on that year for that subsector. The second plot shows for Canada the energy subsector specifically along with actual names of regulations.
## R version 3.6.1 (2019-07-05)
## Platform: x86_64-w64-mingw32/x64 (64-bit)
## Running under: Windows 10 x64 (build 17763)
##
## Matrix products: default
##
## locale:
## [1] LC_COLLATE=English_Canada.1252 LC_CTYPE=English_Canada.1252
## [3] LC_MONETARY=English_Canada.1252 LC_NUMERIC=C
## [5] LC_TIME=English_Canada.1252
##
## attached base packages:
## [1] stats graphics grDevices utils datasets methods base
##
## other attached packages:
## [1] viridis_0.5.1 viridisLite_0.3.0 tsibble_0.8.5
## [4] forcats_0.4.0 stringr_1.4.0 dplyr_0.8.3
## [7] purrr_0.3.2 readr_1.3.1 tidyr_1.0.0
## [10] tibble_2.1.3 tidyverse_1.2.1 skimr_1.0.7
## [13] plyr_1.8.4 plotly_4.9.1 lubridate_1.7.4
## [16] lmtest_0.9-37 zoo_1.8-6 janitor_1.2.0
## [19] ggthemes_4.2.0 forecast_8.9 feasts_0.1.1
## [22] fable_0.1.0 fabletools_0.1.1 ggrepel_0.8.1
## [25] ggplot2_3.2.1 countrycode_1.1.0
##
## loaded via a namespace (and not attached):
## [1] nlme_3.1-140 xts_0.11-2 httr_1.4.1
## [4] tools_3.6.1 backports_1.1.4 R6_2.4.0
## [7] lazyeval_0.2.2 colorspace_1.4-1 nnet_7.3-12
## [10] withr_2.1.2 tidyselect_0.2.5 gridExtra_2.3
## [13] curl_4.1 compiler_3.6.1 cli_1.1.0
## [16] rvest_0.3.4 xml2_1.2.2 labeling_0.3
## [19] tseries_0.10-47 scales_1.0.0 fracdiff_1.4-2
## [22] quadprog_1.5-8 digest_0.6.20 rmarkdown_1.15
## [25] pkgconfig_2.0.2 htmltools_0.4.0 fastmap_1.0.1
## [28] maps_3.3.0 htmlwidgets_1.5.1 rlang_0.4.0
## [31] readxl_1.3.1 TTR_0.23-5 rstudioapi_0.10
## [34] quantmod_0.4-15 shiny_1.4.0 generics_0.0.2
## [37] jsonlite_1.6 crosstalk_1.0.0 magrittr_1.5
## [40] Rcpp_1.0.2 munsell_0.5.0 lifecycle_0.1.0
## [43] stringi_1.4.3 yaml_2.2.0 snakecase_0.11.0
## [46] grid_3.6.1 parallel_3.6.1 promises_1.1.0
## [49] crayon_1.3.4 lattice_0.20-38 haven_2.1.1
## [52] hms_0.5.1 zeallot_0.1.0 knitr_1.24
## [55] anytime_0.3.6 pillar_1.4.2 urca_1.3-0
## [58] glue_1.3.1 evaluate_0.14 data.table_1.12.6
## [61] modelr_0.1.5 vctrs_0.2.0 httpuv_1.5.2
## [64] cellranger_1.1.0 gtable_0.3.0 assertthat_0.2.1
## [67] xfun_0.9 mime_0.7 xtable_1.8-4
## [70] broom_0.5.2 later_1.0.0 timeDate_3043.102
## [73] ellipsis_0.2.0.1