GDP & emissions

Data

Downloaded from the awesome OurWorldInData.

Code

dt <- data.table::fread(here::here("data", "co2-emissions-and-gdp.csv"))

Simple UK plot

First we’ll try production emissions @fig-ukPlotProd.

Code

plotDT <- dt[Entity == "United Kingdom"]

ggplot2::ggplot(plotDT, aes(y = as.numeric(`GDP, PPP (constant 2017 international $)`)/1000000000, 
                            x = as.numeric(`Annual CO2 emissions`)/1000000,
                            alpha = Year)) +
  geom_point() +
  labs(x = "Annual CO2 emissions (production-based, gT)",
       y = "GDP $bn")

Figure 1: UK GDP vs production emissions over time.

Next we’ll try consumption emissions @fig-ukPlotCons.

Note that 2020 consumption-based emissions data is missing so you don’t see the downtick

Code

plotDT <- dt[Entity == "United Kingdom"]

ggplot2::ggplot(plotDT, aes(y = as.numeric(`GDP, PPP (constant 2017 international $)`)/1000000000, 
                            x = as.numeric(`Annual consumption-based CO2 emissions`)/1000000,
                            alpha = Year)) +
  geom_point() +
  labs(x = "Annual CO2 emissions (consumption-based, gT)",
       y = "GDP $bn")

Figure 2: UK GDP vs consumption emissions over time.