Skip to content
Snippets Groups Projects
Commit 10220cfb authored by Ben Anderson's avatar Ben Anderson
Browse files

gdp & emissions - pc and absolute

parent 41c4c609
No related branches found
No related tags found
1 merge request!10add 2 ffps
Hide whitespace changes
Inline Side-by-side
data/co2-emissions-and-gdp-per-capita.csv 0 → 100644
+ 7746
− 0
View file @ 10220cfb
source diff could not be displayed: it is too large. Options to address this: view the blob.
gdpAndEmissions/UK_initialPlots.html
+ 467
− 11
View file @ 10220cfb
......@@ -6,7 +6,8 @@
<meta name="viewport" content="width=device-width, initial-scale=1.0, user-scalable=yes">
<meta name="author" content="Ben &amp; Tom">
<meta name="author" content="Ben Anderson &amp; Tom Rushby">
<meta name="dcterms.date" content="2022-10-06">
<title>GDP &amp; emissions</title>
<style>
......@@ -96,10 +97,22 @@ code span.wa { color: #60a0b0; font-weight: bold; font-style: italic; } /* Warni
</head>
<body class="fullcontent">
<body>
<div id="quarto-content" class="page-columns page-rows-contents page-layout-article">
<div id="quarto-margin-sidebar" class="sidebar margin-sidebar">
<nav id="TOC" role="doc-toc">
<h2 id="toc-title">Table of contents</h2>
<ul>
<li><a href="#whats-all-this-about-de-growth" id="toc-whats-all-this-about-de-growth" class="nav-link active" data-scroll-target="#whats-all-this-about-de-growth">What’s all this about de-growth?</a></li>
<li><a href="#data" id="toc-data" class="nav-link" data-scroll-target="#data">Data</a></li>
<li><a href="#uk-absolute-gdp-emissions" id="toc-uk-absolute-gdp-emissions" class="nav-link" data-scroll-target="#uk-absolute-gdp-emissions">UK: absolute GDP &amp; emissions</a></li>
<li><a href="#uk-per-capita-gdp-emissions" id="toc-uk-per-capita-gdp-emissions" class="nav-link" data-scroll-target="#uk-per-capita-gdp-emissions">UK: per capita GDP &amp; emissions</a></li>
<li><a href="#data-descriptions" id="toc-data-descriptions" class="nav-link" data-scroll-target="#data-descriptions">Data descriptions</a></li>
</ul>
</nav>
</div>
<main class="content" id="quarto-document-content">
<header id="title-block-header" class="quarto-title-block default">
......@@ -114,10 +127,16 @@ code span.wa { color: #60a0b0; font-weight: bold; font-style: italic; } /* Warni
<div>
<div class="quarto-title-meta-heading">Author</div>
<div class="quarto-title-meta-contents">
<p>Ben &amp; Tom </p>
<p>Ben Anderson &amp; Tom Rushby </p>
</div>
</div>
<div>
<div class="quarto-title-meta-heading">Published</div>
<div class="quarto-title-meta-contents">
<p class="date">October 6, 2022</p>
</div>
</div>
</div>
......@@ -127,23 +146,28 @@ code span.wa { color: #60a0b0; font-weight: bold; font-style: italic; } /* Warni
<div class="cell">
</div>
<section id="data" class="level2">
<h2 class="anchored" data-anchor-id="data">Data</h2>
<section id="whats-all-this-about-de-growth" class="level1">
<h1>What’s all this about de-growth?</h1>
<p>&lt;sigh&gt;</p>
</section>
<section id="data" class="level1">
<h1>Data</h1>
<p>Downloaded from the awesome <a href="https://ourworldindata.org/grapher/co2-emissions-and-gdp?country=~GBR">OurWorldInData</a>.</p>
<div class="cell">
<details>
<summary>Code</summary>
<div class="sourceCode cell-code" id="cb1"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb1-1"><a href="#cb1-1" aria-hidden="true" tabindex="-1"></a>dt <span class="ot">&lt;-</span> data.table<span class="sc">::</span><span class="fu">fread</span>(here<span class="sc">::</span><span class="fu">here</span>(<span class="st">"data"</span>, <span class="st">"co2-emissions-and-gdp.csv"</span>))</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
<div class="sourceCode cell-code" id="cb1"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb1-1"><a href="#cb1-1" aria-hidden="true" tabindex="-1"></a>dt_abs <span class="ot">&lt;-</span> data.table<span class="sc">::</span><span class="fu">fread</span>(here<span class="sc">::</span><span class="fu">here</span>(<span class="st">"data"</span>, <span class="st">"co2-emissions-and-gdp.csv"</span>))</span>
<span id="cb1-2"><a href="#cb1-2" aria-hidden="true" tabindex="-1"></a>dt_pc <span class="ot">&lt;-</span> data.table<span class="sc">::</span><span class="fu">fread</span>(here<span class="sc">::</span><span class="fu">here</span>(<span class="st">"data"</span>, <span class="st">"co2-emissions-and-gdp-per-capita.csv"</span>))</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
</details>
</div>
</section>
<section id="simple-uk-plot" class="level2">
<h2 class="anchored" data-anchor-id="simple-uk-plot">Simple UK plot</h2>
<section id="uk-absolute-gdp-emissions" class="level1">
<h1>UK: absolute GDP &amp; emissions</h1>
<p>First we’ll try production emissions @fig-ukPlotProd.</p>
<div class="cell">
<details>
<summary>Code</summary>
<div class="sourceCode cell-code" id="cb2"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb2-1"><a href="#cb2-1" aria-hidden="true" tabindex="-1"></a>plotDT <span class="ot">&lt;-</span> dt[Entity <span class="sc">==</span> <span class="st">"United Kingdom"</span>]</span>
<div class="sourceCode cell-code" id="cb2"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb2-1"><a href="#cb2-1" aria-hidden="true" tabindex="-1"></a>plotDT <span class="ot">&lt;-</span> dt_abs[Entity <span class="sc">==</span> <span class="st">"United Kingdom"</span>]</span>
<span id="cb2-2"><a href="#cb2-2" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb2-3"><a href="#cb2-3" aria-hidden="true" tabindex="-1"></a>ggplot2<span class="sc">::</span><span class="fu">ggplot</span>(plotDT, <span class="fu">aes</span>(<span class="at">y =</span> <span class="fu">as.numeric</span>(<span class="st">`</span><span class="at">GDP, PPP (constant 2017 international $)</span><span class="st">`</span>)<span class="sc">/</span><span class="dv">1000000000</span>, </span>
<span id="cb2-4"><a href="#cb2-4" aria-hidden="true" tabindex="-1"></a> <span class="at">x =</span> <span class="fu">as.numeric</span>(<span class="st">`</span><span class="at">Annual CO2 emissions</span><span class="st">`</span>)<span class="sc">/</span><span class="dv">1000000</span>,</span>
......@@ -166,7 +190,7 @@ code span.wa { color: #60a0b0; font-weight: bold; font-style: italic; } /* Warni
<div class="cell">
<details>
<summary>Code</summary>
<div class="sourceCode cell-code" id="cb3"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb3-1"><a href="#cb3-1" aria-hidden="true" tabindex="-1"></a>plotDT <span class="ot">&lt;-</span> dt[Entity <span class="sc">==</span> <span class="st">"United Kingdom"</span>]</span>
<div class="sourceCode cell-code" id="cb3"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb3-1"><a href="#cb3-1" aria-hidden="true" tabindex="-1"></a>plotDT <span class="ot">&lt;-</span> dt_abs[Entity <span class="sc">==</span> <span class="st">"United Kingdom"</span>]</span>
<span id="cb3-2"><a href="#cb3-2" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb3-3"><a href="#cb3-3" aria-hidden="true" tabindex="-1"></a>ggplot2<span class="sc">::</span><span class="fu">ggplot</span>(plotDT, <span class="fu">aes</span>(<span class="at">y =</span> <span class="fu">as.numeric</span>(<span class="st">`</span><span class="at">GDP, PPP (constant 2017 international $)</span><span class="st">`</span>)<span class="sc">/</span><span class="dv">1000000000</span>, </span>
<span id="cb3-4"><a href="#cb3-4" aria-hidden="true" tabindex="-1"></a> <span class="at">x =</span> <span class="fu">as.numeric</span>(<span class="st">`</span><span class="at">Annual consumption-based CO2 emissions</span><span class="st">`</span>)<span class="sc">/</span><span class="dv">1000000</span>,</span>
......@@ -185,6 +209,438 @@ code span.wa { color: #60a0b0; font-weight: bold; font-style: italic; } /* Warni
</div>
</div>
</section>
<section id="uk-per-capita-gdp-emissions" class="level1">
<h1>UK: per capita GDP &amp; emissions</h1>
<p>Since we’ll be dividing everything pairwise by the same denominator, nothing much should change…</p>
<p>First we’ll try production emissions @fig-ukPlotProdPcc.</p>
<div class="cell">
<details>
<summary>Code</summary>
<div class="sourceCode cell-code" id="cb4"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb4-1"><a href="#cb4-1" aria-hidden="true" tabindex="-1"></a>plotDT <span class="ot">&lt;-</span> dt_pc[Entity <span class="sc">==</span> <span class="st">"United Kingdom"</span>]</span>
<span id="cb4-2"><a href="#cb4-2" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb4-3"><a href="#cb4-3" aria-hidden="true" tabindex="-1"></a>ggplot2<span class="sc">::</span><span class="fu">ggplot</span>(plotDT, <span class="fu">aes</span>(<span class="at">y =</span> <span class="fu">as.numeric</span>(<span class="st">`</span><span class="at">GDP per capita, PPP (constant 2017 international $)</span><span class="st">`</span>), </span>
<span id="cb4-4"><a href="#cb4-4" aria-hidden="true" tabindex="-1"></a> <span class="at">x =</span> <span class="fu">as.numeric</span>(<span class="st">`</span><span class="at">Annual CO2 emissions (per capita)</span><span class="st">`</span>),</span>
<span id="cb4-5"><a href="#cb4-5" aria-hidden="true" tabindex="-1"></a> <span class="at">alpha =</span> Year)) <span class="sc">+</span></span>
<span id="cb4-6"><a href="#cb4-6" aria-hidden="true" tabindex="-1"></a> <span class="fu">geom_point</span>() <span class="sc">+</span></span>
<span id="cb4-7"><a href="#cb4-7" aria-hidden="true" tabindex="-1"></a> <span class="fu">labs</span>(<span class="at">x =</span> <span class="st">"Annual CO2 emissions per capita (production-based, T)"</span>,</span>
<span id="cb4-8"><a href="#cb4-8" aria-hidden="true" tabindex="-1"></a> <span class="at">y =</span> <span class="st">"GDP per capita $"</span>)</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
</details>
<div class="cell-output-display">
<div id="fig-ukPlotProdPcc" class="quarto-figure quarto-figure-center anchored">
<figure class="figure">
<p><img src="UK_initialPlots_files/figure-html/fig-ukPlotProdPcc-1.png" class="img-fluid figure-img" width="672"></p>
<p></p><figcaption aria-hidden="true" class="figure-caption">Figure 3: UK GDP vs production emissions over time.</figcaption><p></p>
</figure>
</div>
</div>
</div>
<p>Next we’ll try consumption emissions @fig-ukPlotConsPcc.</p>
<p>Note that 2020 consumption-based emissions data is missing so you don’t see the downtick</p>
<div class="cell">
<details>
<summary>Code</summary>
<div class="sourceCode cell-code" id="cb5"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb5-1"><a href="#cb5-1" aria-hidden="true" tabindex="-1"></a>plotDT <span class="ot">&lt;-</span> dt_pc[Entity <span class="sc">==</span> <span class="st">"United Kingdom"</span>]</span>
<span id="cb5-2"><a href="#cb5-2" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb5-3"><a href="#cb5-3" aria-hidden="true" tabindex="-1"></a>ggplot2<span class="sc">::</span><span class="fu">ggplot</span>(plotDT, <span class="fu">aes</span>(<span class="at">y =</span> <span class="fu">as.numeric</span>(<span class="st">`</span><span class="at">GDP per capita, PPP (constant 2017 international $)</span><span class="st">`</span>), </span>
<span id="cb5-4"><a href="#cb5-4" aria-hidden="true" tabindex="-1"></a> <span class="at">x =</span> <span class="fu">as.numeric</span>(<span class="st">`</span><span class="at">Annual consumption-based CO2 emissions (per capita)</span><span class="st">`</span>),</span>
<span id="cb5-5"><a href="#cb5-5" aria-hidden="true" tabindex="-1"></a> <span class="at">alpha =</span> Year)) <span class="sc">+</span></span>
<span id="cb5-6"><a href="#cb5-6" aria-hidden="true" tabindex="-1"></a> <span class="fu">geom_point</span>() <span class="sc">+</span></span>
<span id="cb5-7"><a href="#cb5-7" aria-hidden="true" tabindex="-1"></a> <span class="fu">labs</span>(<span class="at">x =</span> <span class="st">"Annual CO2 emissions per capita (consumption-based, T)"</span>,</span>
<span id="cb5-8"><a href="#cb5-8" aria-hidden="true" tabindex="-1"></a> <span class="at">y =</span> <span class="st">"GDP per capita $"</span>)</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
</details>
<div class="cell-output-display">
<div id="fig-ukPlotConsPcc" class="quarto-figure quarto-figure-center anchored">
<figure class="figure">
<p><img src="UK_initialPlots_files/figure-html/fig-ukPlotConsPcc-1.png" class="img-fluid figure-img" width="672"></p>
<p></p><figcaption aria-hidden="true" class="figure-caption">Figure 4: UK GDP vs consumption emissions over time.</figcaption><p></p>
</figure>
</div>
</div>
</div>
</section>
<section id="data-descriptions" class="level1">
<h1>Data descriptions</h1>
<p>Check</p>
<p>Skim the absolute data:</p>
<div class="cell">
<details>
<summary>Code</summary>
<div class="sourceCode cell-code" id="cb6"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb6-1"><a href="#cb6-1" aria-hidden="true" tabindex="-1"></a>skimr<span class="sc">::</span><span class="fu">skim</span>(dt_abs)</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
</details>
<div class="cell-output cell-output-stderr">
<pre><code>Warning: Couldn't find skimmers for class: integer64; No user-defined `sfl`
provided. Falling back to `character`.
Warning: Couldn't find skimmers for class: integer64; No user-defined `sfl`
provided. Falling back to `character`.</code></pre>
</div>
<div class="cell-output-display">
<table class="table table-sm table-striped">
<caption>Data summary</caption>
<tbody>
<tr class="odd">
<td style="text-align: left;">Name</td>
<td style="text-align: left;">dt_abs</td>
</tr>
<tr class="even">
<td style="text-align: left;">Number of rows</td>
<td style="text-align: left;">7795</td>
</tr>
<tr class="odd">
<td style="text-align: left;">Number of columns</td>
<td style="text-align: left;">6</td>
</tr>
<tr class="even">
<td style="text-align: left;">Key</td>
<td style="text-align: left;">NULL</td>
</tr>
<tr class="odd">
<td style="text-align: left;">_______________________</td>
<td style="text-align: left;"></td>
</tr>
<tr class="even">
<td style="text-align: left;">Column type frequency:</td>
<td style="text-align: left;"></td>
</tr>
<tr class="odd">
<td style="text-align: left;">character</td>
<td style="text-align: left;">4</td>
</tr>
<tr class="even">
<td style="text-align: left;">numeric</td>
<td style="text-align: left;">2</td>
</tr>
<tr class="odd">
<td style="text-align: left;">________________________</td>
<td style="text-align: left;"></td>
</tr>
<tr class="even">
<td style="text-align: left;">Group variables</td>
<td style="text-align: left;">None</td>
</tr>
</tbody>
</table>
<p><strong>Variable type: character</strong></p>
<table class="table table-sm table-striped">
<colgroup>
<col style="width: 41%">
<col style="width: 10%">
<col style="width: 14%">
<col style="width: 4%">
<col style="width: 4%">
<col style="width: 6%">
<col style="width: 9%">
<col style="width: 11%">
</colgroup>
<thead>
<tr class="header">
<th style="text-align: left;">skim_variable</th>
<th style="text-align: right;">n_missing</th>
<th style="text-align: right;">complete_rate</th>
<th style="text-align: right;">min</th>
<th style="text-align: right;">max</th>
<th style="text-align: right;">empty</th>
<th style="text-align: right;">n_unique</th>
<th style="text-align: right;">whitespace</th>
</tr>
</thead>
<tbody>
<tr class="odd">
<td style="text-align: left;">Entity</td>
<td style="text-align: right;">0</td>
<td style="text-align: right;">1.00</td>
<td style="text-align: right;">4</td>
<td style="text-align: right;">32</td>
<td style="text-align: right;">0</td>
<td style="text-align: right;">255</td>
<td style="text-align: right;">0</td>
</tr>
<tr class="even">
<td style="text-align: left;">Code</td>
<td style="text-align: right;">0</td>
<td style="text-align: right;">1.00</td>
<td style="text-align: right;">0</td>
<td style="text-align: right;">8</td>
<td style="text-align: right;">931</td>
<td style="text-align: right;">225</td>
<td style="text-align: right;">0</td>
</tr>
<tr class="odd">
<td style="text-align: left;">Annual CO2 emissions</td>
<td style="text-align: right;">479</td>
<td style="text-align: right;">0.94</td>
<td style="text-align: right;">1</td>
<td style="text-align: right;">21</td>
<td style="text-align: right;">0</td>
<td style="text-align: right;">6137</td>
<td style="text-align: right;">0</td>
</tr>
<tr class="even">
<td style="text-align: left;">GDP, PPP (constant 2017 international $)</td>
<td style="text-align: right;">1626</td>
<td style="text-align: right;">0.79</td>
<td style="text-align: right;">1</td>
<td style="text-align: right;">21</td>
<td style="text-align: right;">0</td>
<td style="text-align: right;">6162</td>
<td style="text-align: right;">0</td>
</tr>
</tbody>
</table>
<p><strong>Variable type: numeric</strong></p>
<table class="table table-sm table-striped">
<colgroup>
<col style="width: 27%">
<col style="width: 6%">
<col style="width: 9%">
<col style="width: 9%">
<col style="width: 9%">
<col style="width: 6%">
<col style="width: 6%">
<col style="width: 6%">
<col style="width: 6%">
<col style="width: 8%">
<col style="width: 4%">
</colgroup>
<thead>
<tr class="header">
<th style="text-align: left;">skim_variable</th>
<th style="text-align: right;">n_missing</th>
<th style="text-align: right;">complete_rate</th>
<th style="text-align: right;">mean</th>
<th style="text-align: right;">sd</th>
<th style="text-align: right;">p0</th>
<th style="text-align: right;">p25</th>
<th style="text-align: right;">p50</th>
<th style="text-align: right;">p75</th>
<th style="text-align: right;">p100</th>
<th style="text-align: left;">hist</th>
</tr>
</thead>
<tbody>
<tr class="odd">
<td style="text-align: left;">Year</td>
<td style="text-align: right;">0</td>
<td style="text-align: right;">1.00</td>
<td style="text-align: right;">2005.06</td>
<td style="text-align: right;">8.930000e+00</td>
<td style="text-align: right;">1990.0</td>
<td style="text-align: right;">1997</td>
<td style="text-align: right;">2005</td>
<td style="text-align: right;">2013</td>
<td style="text-align: right;">2020</td>
<td style="text-align: left;">▇▇▇▇▇</td>
</tr>
<tr class="even">
<td style="text-align: left;">Annual consumption-based CO2 emissions</td>
<td style="text-align: right;">3730</td>
<td style="text-align: right;">0.52</td>
<td style="text-align: right;">976326173.39</td>
<td style="text-align: right;">3.366486e+09</td>
<td style="text-align: right;">197201.7</td>
<td style="text-align: right;">10759533</td>
<td style="text-align: right;">59975059</td>
<td style="text-align: right;">290854945</td>
<td style="text-align: right;">36702502921</td>
<td style="text-align: left;">▇▁▁▁▁</td>
</tr>
</tbody>
</table>
</div>
</div>
<p>Skim the per capita data</p>
<div class="cell">
<details>
<summary>Code</summary>
<div class="sourceCode cell-code" id="cb8"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb8-1"><a href="#cb8-1" aria-hidden="true" tabindex="-1"></a>skimr<span class="sc">::</span><span class="fu">skim</span>(dt_pc)</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
</details>
<div class="cell-output-display">
<table class="table table-sm table-striped">
<caption>Data summary</caption>
<tbody>
<tr class="odd">
<td style="text-align: left;">Name</td>
<td style="text-align: left;">dt_pc</td>
</tr>
<tr class="even">
<td style="text-align: left;">Number of rows</td>
<td style="text-align: left;">7745</td>
</tr>
<tr class="odd">
<td style="text-align: left;">Number of columns</td>
<td style="text-align: left;">6</td>
</tr>
<tr class="even">
<td style="text-align: left;">Key</td>
<td style="text-align: left;">NULL</td>
</tr>
<tr class="odd">
<td style="text-align: left;">_______________________</td>
<td style="text-align: left;"></td>
</tr>
<tr class="even">
<td style="text-align: left;">Column type frequency:</td>
<td style="text-align: left;"></td>
</tr>
<tr class="odd">
<td style="text-align: left;">character</td>
<td style="text-align: left;">2</td>
</tr>
<tr class="even">
<td style="text-align: left;">numeric</td>
<td style="text-align: left;">4</td>
</tr>
<tr class="odd">
<td style="text-align: left;">________________________</td>
<td style="text-align: left;"></td>
</tr>
<tr class="even">
<td style="text-align: left;">Group variables</td>
<td style="text-align: left;">None</td>
</tr>
</tbody>
</table>
<p><strong>Variable type: character</strong></p>
<table class="table table-sm table-striped">
<colgroup>
<col style="width: 19%">
<col style="width: 13%">
<col style="width: 19%">
<col style="width: 5%">
<col style="width: 5%">
<col style="width: 8%">
<col style="width: 12%">
<col style="width: 15%">
</colgroup>
<thead>
<tr class="header">
<th style="text-align: left;">skim_variable</th>
<th style="text-align: right;">n_missing</th>
<th style="text-align: right;">complete_rate</th>
<th style="text-align: right;">min</th>
<th style="text-align: right;">max</th>
<th style="text-align: right;">empty</th>
<th style="text-align: right;">n_unique</th>
<th style="text-align: right;">whitespace</th>
</tr>
</thead>
<tbody>
<tr class="odd">
<td style="text-align: left;">Entity</td>
<td style="text-align: right;">0</td>
<td style="text-align: right;">1</td>
<td style="text-align: right;">4</td>
<td style="text-align: right;">32</td>
<td style="text-align: right;">0</td>
<td style="text-align: right;">252</td>
<td style="text-align: right;">0</td>
</tr>
<tr class="even">
<td style="text-align: left;">Code</td>
<td style="text-align: right;">0</td>
<td style="text-align: right;">1</td>
<td style="text-align: right;">0</td>
<td style="text-align: right;">8</td>
<td style="text-align: right;">899</td>
<td style="text-align: right;">224</td>
<td style="text-align: right;">0</td>
</tr>
</tbody>
</table>
<p><strong>Variable type: numeric</strong></p>
<table class="table table-sm table-striped">
<colgroup>
<col style="width: 36%">
<col style="width: 6%">
<col style="width: 9%">
<col style="width: 6%">
<col style="width: 6%">
<col style="width: 5%">
<col style="width: 5%">
<col style="width: 6%">
<col style="width: 6%">
<col style="width: 6%">
<col style="width: 4%">
</colgroup>
<thead>
<tr class="header">
<th style="text-align: left;">skim_variable</th>
<th style="text-align: right;">n_missing</th>
<th style="text-align: right;">complete_rate</th>
<th style="text-align: right;">mean</th>
<th style="text-align: right;">sd</th>
<th style="text-align: right;">p0</th>
<th style="text-align: right;">p25</th>
<th style="text-align: right;">p50</th>
<th style="text-align: right;">p75</th>
<th style="text-align: right;">p100</th>
<th style="text-align: left;">hist</th>
</tr>
</thead>
<tbody>
<tr class="odd">
<td style="text-align: left;">Year</td>
<td style="text-align: right;">0</td>
<td style="text-align: right;">1.00</td>
<td style="text-align: right;">2005.07</td>
<td style="text-align: right;">8.93</td>
<td style="text-align: right;">1990.00</td>
<td style="text-align: right;">1997.00</td>
<td style="text-align: right;">2005.00</td>
<td style="text-align: right;">2013.00</td>
<td style="text-align: right;">2020.00</td>
<td style="text-align: left;">▇▇▇▇▇</td>
</tr>
<tr class="even">
<td style="text-align: left;">GDP per capita, PPP (constant 2017 international $)</td>
<td style="text-align: right;">1579</td>
<td style="text-align: right;">0.80</td>
<td style="text-align: right;">17879.29</td>
<td style="text-align: right;">20132.68</td>
<td style="text-align: right;">436.72</td>
<td style="text-align: right;">3678.83</td>
<td style="text-align: right;">10365.78</td>
<td style="text-align: right;">25832.03</td>
<td style="text-align: right;">161971.47</td>
<td style="text-align: left;">▇▂▁▁▁</td>
</tr>
<tr class="odd">
<td style="text-align: left;">Annual consumption-based CO2 emissions (per capita)</td>
<td style="text-align: right;">3680</td>
<td style="text-align: right;">0.52</td>
<td style="text-align: right;">6.53</td>
<td style="text-align: right;">6.92</td>
<td style="text-align: right;">0.05</td>
<td style="text-align: right;">1.19</td>
<td style="text-align: right;">4.30</td>
<td style="text-align: right;">9.89</td>
<td style="text-align: right;">57.79</td>
<td style="text-align: left;">▇▂▁▁▁</td>
</tr>
<tr class="even">
<td style="text-align: left;">Annual CO2 emissions (per capita)</td>
<td style="text-align: right;">492</td>
<td style="text-align: right;">0.94</td>
<td style="text-align: right;">5.11</td>
<td style="text-align: right;">6.44</td>
<td style="text-align: right;">0.02</td>
<td style="text-align: right;">0.77</td>
<td style="text-align: right;">2.97</td>
<td style="text-align: right;">7.42</td>
<td style="text-align: right;">68.72</td>
<td style="text-align: left;">▇▁▁▁▁</td>
</tr>
</tbody>
</table>
</div>
</div>
<div class="cell">
<details>
<summary>Code</summary>
<div class="sourceCode cell-code" id="cb9"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb9-1"><a href="#cb9-1" aria-hidden="true" tabindex="-1"></a><span class="co"># hidden chunk</span></span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
</details>
</div>
</section>
</main>
<!-- /main column -->
......
gdpAndEmissions/UK_initialPlots.qmd
+ 77
− 6
View file @ 10220cfb
---
title: "GDP & emissions"
author: "Ben & Tom"
author: "Ben Anderson & Tom Rushby"
date: "2022-10-06"
date-modified: "`r Sys.time()`"
format:
html:
toc: true
code-fold: true
editor: visual
---
......@@ -14,20 +17,26 @@ editor: visual
library(data.table)
library(here)
library(ggplot2)
library(skimr)
```
## Data
# What's all this about de-growth?
\<sigh\>
# Data
Downloaded from the awesome [OurWorldInData](https://ourworldindata.org/grapher/co2-emissions-and-gdp?country=~GBR).
```{r}
#| label: loasdData
dt <- data.table::fread(here::here("data", "co2-emissions-and-gdp.csv"))
dt_abs <- data.table::fread(here::here("data", "co2-emissions-and-gdp.csv"))
dt_pc <- data.table::fread(here::here("data", "co2-emissions-and-gdp-per-capita.csv"))
```
## Simple UK plot
# UK: absolute GDP & emissions
First we'll try production emissions \@fig-ukPlotProd.
......@@ -36,7 +45,7 @@ First we'll try production emissions \@fig-ukPlotProd.
#| fig-cap: UK GDP vs production emissions over time.
#| warning: false
plotDT <- dt[Entity == "United Kingdom"]
plotDT <- dt_abs[Entity == "United Kingdom"]
ggplot2::ggplot(plotDT, aes(y = as.numeric(`GDP, PPP (constant 2017 international $)`)/1000000000,
x = as.numeric(`Annual CO2 emissions`)/1000000,
......@@ -54,7 +63,7 @@ Note that 2020 consumption-based emissions data is missing so you don't see the
#| label: fig-ukPlotCons
#| fig-cap: UK GDP vs consumption emissions over time.
#| warning: false
plotDT <- dt[Entity == "United Kingdom"]
plotDT <- dt_abs[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,
......@@ -63,3 +72,65 @@ ggplot2::ggplot(plotDT, aes(y = as.numeric(`GDP, PPP (constant 2017 internationa
labs(x = "Annual CO2 emissions (consumption-based, gT)",
y = "GDP $bn")
```
# UK: per capita GDP & emissions
Since we'll be dividing everything pairwise by the same denominator, nothing much should change...
First we'll try production emissions \@fig-ukPlotProdPcc.
```{r}
#| label: fig-ukPlotProdPcc
#| fig-cap: UK GDP vs production emissions over time.
#| warning: false
plotDT <- dt_pc[Entity == "United Kingdom"]
ggplot2::ggplot(plotDT, aes(y = as.numeric(`GDP per capita, PPP (constant 2017 international $)`),
x = as.numeric(`Annual CO2 emissions (per capita)`),
alpha = Year)) +
geom_point() +
labs(x = "Annual CO2 emissions per capita (production-based, T)",
y = "GDP per capita $")
```
Next we'll try consumption emissions \@fig-ukPlotConsPcc.
Note that 2020 consumption-based emissions data is missing so you don't see the downtick
```{r}
#| label: fig-ukPlotConsPcc
#| fig-cap: UK GDP vs consumption emissions over time.
#| warning: false
plotDT <- dt_pc[Entity == "United Kingdom"]
ggplot2::ggplot(plotDT, aes(y = as.numeric(`GDP per capita, PPP (constant 2017 international $)`),
x = as.numeric(`Annual consumption-based CO2 emissions (per capita)`),
alpha = Year)) +
geom_point() +
labs(x = "Annual CO2 emissions per capita (consumption-based, T)",
y = "GDP per capita $")
```
# Data descriptions
Check
Skim the absolute data:
```{r}
#| label: skimAbs
skimr::skim(dt_abs)
```
Skim the per capita data
```{r}
#| label: skimPC
skimr::skim(dt_pc)
```
```{r}
#| label: runToHere
# hidden chunk
```
gdpAndEmissions/UK_initialPlots_files/figure-html/fig-ukPlotConsPcc-1.png 0 → 100644
+ 0
− 0
View file @ 10220cfb
gdpAndEmissions/UK_initialPlots_files/figure-html/fig-ukPlotConsPcc-1.png

76.6 KiB

gdpAndEmissions/UK_initialPlots_files/figure-html/fig-ukPlotProdPcc-1.png 0 → 100644
+ 0
− 0
View file @ 10220cfb
gdpAndEmissions/UK_initialPlots_files/figure-html/fig-ukPlotProdPcc-1.png

76.9 KiB

0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment