From 3aa48299091c6ba40f94967dc0513563c74e4ebc Mon Sep 17 00:00:00 2001
From: "Zhao, Xin" <xin.zhao@pnnl.gov>
Date: Sun, 11 Feb 2024 11:07:43 -0500
Subject: [PATCH] Update articles

---
 docs/articles/index.html                  |  10 +-
 docs/articles/vignette_news.html          |   8 +-
 docs/articles/vignette_use_cases.html     | 164 +++++++++++++++++-----
 docs/articles/vignette_visualization.html |   6 +-
 4 files changed, 146 insertions(+), 42 deletions(-)

diff --git a/docs/articles/index.html b/docs/articles/index.html
index 0046f6a6..efd128b4 100644
--- a/docs/articles/index.html
+++ b/docs/articles/index.html
@@ -24,12 +24,12 @@
     <div id="navbar" class="navbar-collapse collapse">
       <ul class="nav navbar-nav"><li>
   <a href="../index.html">
-    <span class="fas fa-home"></span>
+    <span class="fa fa-home"></span>
      
   </a>
 </li>
 <li class="dropdown">
-  <a href="#" class="dropdown-toggle" data-toggle="dropdown" role="button" aria-expanded="false">
+  <a href="#" class="dropdown-toggle" data-toggle="dropdown" role="button" data-bs-toggle="dropdown" aria-expanded="false">
     <span class="fas fa-book"></span>
      
     Vignettes
@@ -51,21 +51,21 @@
   </ul></li>
 <li>
   <a href="../articles/vignette_visualization.html">
-    <span class="fas fa-file-image-o"></span>
+    <span class="fa fa-file-image-o"></span>
      
     Visualization
   </a>
 </li>
 <li>
   <a href="../reference/index.html">
-    <span class="fas fa-file-code-o"></span>
+    <span class="fa fa-file-code-o"></span>
      
     Reference
   </a>
 </li>
 <li>
   <a href="../articles/vignette_news.html">
-    <span class="fas fa-newspaper-o"></span>
+    <span class="fa fa-newspaper-o"></span>
      
     News
   </a>
diff --git a/docs/articles/vignette_news.html b/docs/articles/vignette_news.html
index 0b0c0277..94a6d3b3 100644
--- a/docs/articles/vignette_news.html
+++ b/docs/articles/vignette_news.html
@@ -112,7 +112,7 @@
     <div class="page-header toc-ignore">
       <h1 data-toc-skip>News</h1>
             
-            <h4 data-toc-skip class="date">2024-01-28</h4>
+            <h4 data-toc-skip class="date">2024-02-11</h4>
       
       <small class="dont-index">Source: <a href="https://github.com/jgcri/gcamfaostat/blob/HEAD/vignettes/vignette_news.Rmd" class="external-link"><code>vignettes/vignette_news.Rmd</code></a></small>
       <div class="hidden name"><code>vignette_news.Rmd</code></div>
@@ -121,6 +121,12 @@ <h4 data-toc-skip class="date">2024-01-28</h4>
 
     
     
+<p>2023-2-11</p>
+<ul>
+<li>Update trade related figures in <a href="https://jgcri.github.io/gcamfaostat/articles/vignette_use_cases.html#faostat-raw-data-and-processing-output-updates">Cast
+Study</a>
+</li>
+</ul>
 <p>2023-1-28</p>
 <ul>
 <li>The first version of gcamfaostat is still being processed/reviewed
diff --git a/docs/articles/vignette_use_cases.html b/docs/articles/vignette_use_cases.html
index a8dc9e04..a942e7e6 100644
--- a/docs/articles/vignette_use_cases.html
+++ b/docs/articles/vignette_use_cases.html
@@ -112,7 +112,7 @@
     <div class="page-header toc-ignore">
       <h1 data-toc-skip>Use Cases</h1>
             
-            <h4 data-toc-skip class="date">2023-11-10</h4>
+            <h4 data-toc-skip class="date">2024-02-11</h4>
       
       <small class="dont-index">Source: <a href="https://github.com/jgcri/gcamfaostat/blob/HEAD/vignettes/vignette_use_cases.Rmd" class="external-link"><code>vignettes/vignette_use_cases.Rmd</code></a></small>
       <div class="hidden name"><code>vignette_use_cases.Rmd</code></div>
@@ -249,16 +249,21 @@ <h2 id="case-study-wheat-bilateral-trade-pattern-changes">Case study: wheat bila
 </h2>
 <ul>
 <li>The world wheat trade was affected by the Russian-Ukraine war in
-2021 (see Figures below).</li>
-<li>In the same time, Canada, another major wheat supplier was hit by
-droughts and production plummeted.<br>
+2022 (see Figures below).</li>
+<li>In 2021 vs. 2020, Russian wheat export already dropped by ~30% (+7%
+for Ukraine), but plummeted another 35% (-42% for Ukraine) in 2022.</li>
+<li>In the same time, USA and Canada, major wheat supplier was hit by
+weather shocks and production plummeted.<br>
 </li>
-<li>However, the total trade did not change in 2021 (197 Mt) compared to
-2020 (198 Mt).</li>
-<li>Mainly because Australia, USA, and other regions supplied more to
-the world market.</li>
+<li>Trade changes are certainly more complicated. The war was not the
+only driver, as Canada and US also had a drop in export. But Argentina,
+Australia, and even India supplied more to the world market.</li>
+<li>Egypt took the largest hit. But the variation was not extreme for
+most major importers. See that smile curve in China.</li>
+<li>The world trade took a hit (-6%), but the overall pattern didn’t
+change drastically in just 1 year.</li>
 </ul>
-<p><img src="../reference/figures/Fig_WheatTrade2020.png" style="width:100.0%"><img src="../reference/figures/Fig_WheatTrade2021.png" style="width:100.0%"></p>
+<p><img src="../reference/figures/Fig_WheatTradeWorldby2022.png" style="width:100.0%"><img src="../reference/figures/Fig_WheatTrade2022_2021.png" style="width:100.0%"><img src="../reference/figures/Fig_WheatExportby2022.png" style="width:100.0%"><img src="../reference/figures/Fig_WheatImportby2022.png" style="width:100.0%"></p>
 <div class="sourceCode" id="cb1"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span class="fu">devtools</span><span class="fu">::</span><span class="fu"><a href="https://devtools.r-lib.org/reference/load_all.html" class="external-link">load_all</a></span><span class="op">(</span><span class="op">)</span>
 
@@ -279,45 +284,46 @@ <h2 id="case-study-wheat-bilateral-trade-pattern-changes">Case study: wheat bila
                       DATA_FOLDER <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/file.path.html" class="external-link">file.path</a></span><span class="op">(</span><span class="st">".."</span>,<span class="va">DIR_RAW_DATA_FAOSTAT</span><span class="op">)</span><span class="op">)</span>
 
 
-<span class="va">TM</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span>
-  <span class="fu"><a href="https://rdrr.io/r/stats/filter.html" class="external-link">filter</a></span><span class="op">(</span><span class="va">year</span> <span class="op"><a href="https://rdrr.io/r/base/match.html" class="external-link">%in%</a></span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="fl">2020</span><span class="op">:</span><span class="fl">2021</span><span class="op">)</span>,
+<span class="va">TM</span> <span class="op">%&gt;%</span>
+  <span class="fu"><a href="https://rdrr.io/r/stats/filter.html" class="external-link">filter</a></span><span class="op">(</span><span class="va">year</span> <span class="op"><a href="https://rdrr.io/r/base/match.html" class="external-link">%in%</a></span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="fl">2020</span><span class="op">:</span><span class="fl">2022</span><span class="op">)</span>,
          <span class="va">item_code</span> <span class="op">==</span> <span class="fl">15</span>, <span class="co"># Wheat</span>
-         <span class="va">element</span> <span class="op"><a href="https://rdrr.io/r/base/match.html" class="external-link">%in%</a></span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"Export Quantity"</span><span class="op">)</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> 
+         <span class="va">element</span> <span class="op"><a href="https://rdrr.io/r/base/match.html" class="external-link">%in%</a></span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"Export Quantity"</span><span class="op">)</span><span class="op">)</span> <span class="op">%&gt;%</span> 
     <span class="fu">select</span><span class="op">(</span>source <span class="op">=</span> <span class="va">reporter_countries</span>,
            area <span class="op">=</span> <span class="va">partner_countries</span>, <span class="va">item</span>, 
            <span class="va">element</span>, <span class="va">year</span>, <span class="va">value</span>, <span class="va">unit</span><span class="op">)</span> <span class="op">-&gt;</span>
   <span class="va">TM_Wheat</span>
 
-<span class="va">TM_Wheat</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> 
-  <span class="fu"><a href="../reference/rm_accent.html">rm_accent</a></span><span class="op">(</span><span class="st">"area"</span>, <span class="st">"source"</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> 
-  <span class="fu">mutate</span><span class="op">(</span>value <span class="op">=</span> <span class="va">value</span> <span class="op">/</span> <span class="fl">1000000</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span>  <span class="co">#Mt</span>
-  <span class="fu">mutate</span><span class="op">(</span>area <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/replace.html" class="external-link">replace</a></span><span class="op">(</span><span class="va">area</span>, <span class="va">area</span> <span class="op">==</span> <span class="st">"United States of America"</span>, <span class="st">"USA"</span><span class="op">)</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> 
-  <span class="fu">mutate</span><span class="op">(</span>area <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/replace.html" class="external-link">replace</a></span><span class="op">(</span><span class="va">area</span>, <span class="va">area</span> <span class="op">==</span> <span class="st">"United Arab Emirates"</span>, <span class="st">"UAE"</span><span class="op">)</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> 
-  <span class="fu">mutate</span><span class="op">(</span>area <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/replace.html" class="external-link">replace</a></span><span class="op">(</span><span class="va">area</span>, <span class="va">area</span> <span class="op">==</span> <span class="st">"Democratic Republic of the Congo"</span>, <span class="st">"DR Congo"</span><span class="op">)</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> 
-  <span class="fu">mutate</span><span class="op">(</span>area <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/grep.html" class="external-link">gsub</a></span><span class="op">(</span><span class="st">" Federation| of Great Britain and Northern Ireland| Province of| \\(Bolivarian Republic of\\)|United Republic of | \\(Islamic Republic of\\)|\\(Kingdom of the\\)"</span>, <span class="st">""</span>, <span class="va">area</span><span class="op">)</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> 
-  <span class="fu">mutate</span><span class="op">(</span>source <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/replace.html" class="external-link">replace</a></span><span class="op">(</span><span class="va">source</span>, <span class="va">source</span> <span class="op">==</span> <span class="st">"United States of America"</span>, <span class="st">"USA"</span><span class="op">)</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> 
-  <span class="fu">mutate</span><span class="op">(</span>source <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/replace.html" class="external-link">replace</a></span><span class="op">(</span><span class="va">source</span>, <span class="va">source</span> <span class="op">==</span> <span class="st">"United Arab Emirates"</span>, <span class="st">"UAE"</span><span class="op">)</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> 
-  <span class="fu">mutate</span><span class="op">(</span>source <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/replace.html" class="external-link">replace</a></span><span class="op">(</span><span class="va">source</span>, <span class="va">source</span> <span class="op">==</span> <span class="st">"Democratic Republic of the Congo"</span>, <span class="st">"DR Congo"</span><span class="op">)</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> 
-  <span class="fu">mutate</span><span class="op">(</span>source <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/grep.html" class="external-link">gsub</a></span><span class="op">(</span><span class="st">" Federation| of Great Britain and Northern Ireland| Province of| \\(Bolivarian Republic of\\)|United Republic of | \\(Islamic Republic of\\)|\\(Kingdom of the\\)"</span>, <span class="st">""</span>, <span class="va">source</span><span class="op">)</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> 
+<span class="va">TM_Wheat</span> <span class="op">%&gt;%</span> 
+  <span class="fu"><a href="../reference/rm_accent.html">rm_accent</a></span><span class="op">(</span><span class="st">"area"</span>, <span class="st">"source"</span><span class="op">)</span> <span class="op">%&gt;%</span> 
+  <span class="fu">mutate</span><span class="op">(</span>value <span class="op">=</span> <span class="va">value</span> <span class="op">/</span> <span class="fl">1000000</span><span class="op">)</span> <span class="op">%&gt;%</span>  <span class="co">#Mt</span>
+  <span class="fu">mutate</span><span class="op">(</span>area <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/replace.html" class="external-link">replace</a></span><span class="op">(</span><span class="va">area</span>, <span class="va">area</span> <span class="op">==</span> <span class="st">"United States of America"</span>, <span class="st">"USA"</span><span class="op">)</span><span class="op">)</span> <span class="op">%&gt;%</span> 
+  <span class="fu">mutate</span><span class="op">(</span>area <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/replace.html" class="external-link">replace</a></span><span class="op">(</span><span class="va">area</span>, <span class="va">area</span> <span class="op">==</span> <span class="st">"United Arab Emirates"</span>, <span class="st">"UAE"</span><span class="op">)</span><span class="op">)</span> <span class="op">%&gt;%</span> 
+  <span class="fu">mutate</span><span class="op">(</span>area <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/replace.html" class="external-link">replace</a></span><span class="op">(</span><span class="va">area</span>, <span class="va">area</span> <span class="op">==</span> <span class="st">"Democratic Republic of the Congo"</span>, <span class="st">"DR Congo"</span><span class="op">)</span><span class="op">)</span> <span class="op">%&gt;%</span> 
+  <span class="fu">mutate</span><span class="op">(</span>area <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/grep.html" class="external-link">gsub</a></span><span class="op">(</span><span class="st">" Federation| of Great Britain and Northern Ireland| Province of| \\(Bolivarian Republic of\\)|United Republic of | \\(Islamic Republic of\\)|\\(Kingdom of the\\)"</span>, <span class="st">""</span>, <span class="va">area</span><span class="op">)</span><span class="op">)</span> <span class="op">%&gt;%</span> 
+  <span class="fu">mutate</span><span class="op">(</span>source <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/replace.html" class="external-link">replace</a></span><span class="op">(</span><span class="va">source</span>, <span class="va">source</span> <span class="op">==</span> <span class="st">"United States of America"</span>, <span class="st">"USA"</span><span class="op">)</span><span class="op">)</span> <span class="op">%&gt;%</span> 
+  <span class="fu">mutate</span><span class="op">(</span>source <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/replace.html" class="external-link">replace</a></span><span class="op">(</span><span class="va">source</span>, <span class="va">source</span> <span class="op">==</span> <span class="st">"United Arab Emirates"</span>, <span class="st">"UAE"</span><span class="op">)</span><span class="op">)</span> <span class="op">%&gt;%</span> 
+  <span class="fu">mutate</span><span class="op">(</span>source <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/replace.html" class="external-link">replace</a></span><span class="op">(</span><span class="va">source</span>, <span class="va">source</span> <span class="op">==</span> <span class="st">"Democratic Republic of the Congo"</span>, <span class="st">"DR Congo"</span><span class="op">)</span><span class="op">)</span> <span class="op">%&gt;%</span> 
+  <span class="fu">mutate</span><span class="op">(</span>source <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/grep.html" class="external-link">gsub</a></span><span class="op">(</span><span class="st">" Federation| of Great Britain and Northern Ireland| Province of| \\(Bolivarian Republic of\\)|United Republic of | \\(Islamic Republic of\\)|\\(Kingdom of the\\)"</span>, <span class="st">""</span>, <span class="va">source</span><span class="op">)</span><span class="op">)</span> <span class="op">%&gt;%</span> 
   <span class="fu">select</span><span class="op">(</span>REG_ex <span class="op">=</span> <span class="va">source</span>, REG_im <span class="op">=</span> <span class="va">area</span>, flow <span class="op">=</span> <span class="va">value</span>, <span class="va">year</span><span class="op">)</span> <span class="op">-&gt;</span>
   <span class="va">TM_Wheat_1</span>
 
 <span class="co"># focus on key players</span>
-<span class="va">TM_Wheat_1</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> <span class="fu"><a href="https://rdrr.io/r/stats/filter.html" class="external-link">filter</a></span><span class="op">(</span><span class="va">year</span> <span class="op">==</span> <span class="fl">2020</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> <span class="fu">top_n</span><span class="op">(</span><span class="fl">35</span>, <span class="va">flow</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> 
-  <span class="fu">select</span><span class="op">(</span><span class="va">REG_ex</span>, <span class="va">REG_im</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> <span class="va">unlist</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> 
+<span class="va">TM_Wheat_1</span> <span class="op">%&gt;%</span> <span class="fu"><a href="https://rdrr.io/r/stats/filter.html" class="external-link">filter</a></span><span class="op">(</span><span class="va">year</span> <span class="op">==</span> <span class="fl">2021</span><span class="op">)</span> <span class="op">%&gt;%</span> <span class="fu">top_n</span><span class="op">(</span><span class="fl">35</span>, <span class="va">flow</span><span class="op">)</span> <span class="op">%&gt;%</span> 
+  <span class="fu">select</span><span class="op">(</span><span class="va">REG_ex</span>, <span class="va">REG_im</span><span class="op">)</span> <span class="op">%&gt;%</span> <span class="va">unlist</span> <span class="op">%&gt;%</span> 
   <span class="fu"><a href="https://rdrr.io/r/base/unique.html" class="external-link">unique</a></span><span class="op">(</span><span class="op">)</span> <span class="op">-&gt;</span> <span class="va">KeyPlayers</span>
 
-<span class="va">TM_Wheat_1</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> 
-  <span class="fu">mutate</span><span class="op">(</span>REG_ex <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/replace.html" class="external-link">replace</a></span><span class="op">(</span><span class="va">REG_ex</span>, <span class="op">!</span><span class="va">REG_ex</span> <span class="op"><a href="https://rdrr.io/r/base/match.html" class="external-link">%in%</a></span> <span class="va">KeyPlayers</span>, <span class="st">"ROW"</span><span class="op">)</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> 
-  <span class="fu">mutate</span><span class="op">(</span>REG_im <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/replace.html" class="external-link">replace</a></span><span class="op">(</span><span class="va">REG_im</span>, <span class="op">!</span><span class="va">REG_im</span> <span class="op"><a href="https://rdrr.io/r/base/match.html" class="external-link">%in%</a></span> <span class="va">KeyPlayers</span>, <span class="st">"ROW"</span><span class="op">)</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span>
+<span class="va">TM_Wheat_1</span> <span class="op">%&gt;%</span> 
+  <span class="fu">mutate</span><span class="op">(</span>REG_ex <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/replace.html" class="external-link">replace</a></span><span class="op">(</span><span class="va">REG_ex</span>, <span class="op">!</span><span class="va">REG_ex</span> <span class="op"><a href="https://rdrr.io/r/base/match.html" class="external-link">%in%</a></span> <span class="va">KeyPlayers</span>, <span class="st">"ROW"</span><span class="op">)</span><span class="op">)</span> <span class="op">%&gt;%</span> 
+  <span class="fu">mutate</span><span class="op">(</span>REG_im <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/replace.html" class="external-link">replace</a></span><span class="op">(</span><span class="va">REG_im</span>, <span class="op">!</span><span class="va">REG_im</span> <span class="op"><a href="https://rdrr.io/r/base/match.html" class="external-link">%in%</a></span> <span class="va">KeyPlayers</span>, <span class="st">"ROW"</span><span class="op">)</span><span class="op">)</span> <span class="op">%&gt;%</span>
   <span class="co"># aggregate small players </span>
-  <span class="fu">group_by</span><span class="op">(</span><span class="va">REG_ex</span>, <span class="va">REG_im</span>, <span class="va">year</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> 
+  <span class="fu">group_by</span><span class="op">(</span><span class="va">REG_ex</span>, <span class="va">REG_im</span>, <span class="va">year</span><span class="op">)</span> <span class="op">%&gt;%</span> 
   <span class="fu">summarise</span><span class="op">(</span>flow <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/sum.html" class="external-link">sum</a></span><span class="op">(</span><span class="va">flow</span><span class="op">)</span>, .groups <span class="op">=</span> <span class="st">"drop"</span><span class="op">)</span> <span class="op">-&gt;</span>
   <span class="va">dat_circular</span>
 
-<span class="va">dat_circular</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> <span class="fu">group_by</span><span class="op">(</span><span class="va">year</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> <span class="fu">summarise</span><span class="op">(</span>flow <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/sum.html" class="external-link">sum</a></span><span class="op">(</span><span class="va">flow</span><span class="op">)</span><span class="op">)</span>
+<span class="va">dat_circular</span> <span class="op">%&gt;%</span> <span class="fu">group_by</span><span class="op">(</span><span class="va">year</span><span class="op">)</span> <span class="op">%&gt;%</span> <span class="fu">summarise</span><span class="op">(</span>flow <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/sum.html" class="external-link">sum</a></span><span class="op">(</span><span class="va">flow</span><span class="op">)</span><span class="op">)</span>
 
 <span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">library</a></span><span class="op">(</span><span class="va"><a href="https://github.com/jokergoo/circlize" class="external-link">circlize</a></span><span class="op">)</span>
+<span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">library</a></span><span class="op">(</span><span class="va"><a href="https://ggplot2.tidyverse.org" class="external-link">ggplot2</a></span><span class="op">)</span>
 
 <span class="co"># A wrapper function</span>
 <span class="va">chord_wrapper</span> <span class="op">&lt;-</span> <span class="kw">function</span><span class="op">(</span><span class="va">.DF</span>,
@@ -381,20 +387,112 @@ <h2 id="case-study-wheat-bilateral-trade-pattern-changes">Case study: wheat bila
 
 <span class="co"># Plot </span>
 
-<span class="fu">chord_wrapper</span><span class="op">(</span>.DF <span class="op">=</span> <span class="va">dat_circular</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> <span class="fu"><a href="https://rdrr.io/r/stats/filter.html" class="external-link">filter</a></span><span class="op">(</span><span class="va">year</span> <span class="op">==</span> <span class="fl">2021</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> <span class="fu">select</span><span class="op">(</span><span class="op">-</span><span class="va">year</span><span class="op">)</span><span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> <span class="fu">arrange</span><span class="op">(</span><span class="va">REG_ex</span>, <span class="va">REG_im</span><span class="op">)</span>,
+<span class="fu">chord_wrapper</span><span class="op">(</span>.DF <span class="op">=</span> <span class="va">dat_circular</span> <span class="op">%&gt;%</span> <span class="fu"><a href="https://rdrr.io/r/stats/filter.html" class="external-link">filter</a></span><span class="op">(</span><span class="va">year</span> <span class="op">==</span> <span class="fl">2022</span><span class="op">)</span> <span class="op">%&gt;%</span> <span class="fu">select</span><span class="op">(</span><span class="op">-</span><span class="va">year</span><span class="op">)</span><span class="op">%&gt;%</span> <span class="fu">arrange</span><span class="op">(</span><span class="va">REG_ex</span>, <span class="va">REG_im</span><span class="op">)</span>,
+              .GRIDCOLOR <span class="op">=</span> <span class="va">GridColor</span>,
+              .FigTitle <span class="op">=</span> <span class="st">"Wheat trade, 2022"</span>,
+              .ORDER <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="va">KeyPlayers</span>, <span class="st">"ROW"</span><span class="op">)</span>,
+              .SaveDir <span class="op">=</span> <span class="st">"../man/figures"</span>,
+              .SaveName <span class="op">=</span> <span class="st">"Fig_WheatTrade2022"</span><span class="op">)</span>
+
+<span class="fu">chord_wrapper</span><span class="op">(</span>.DF <span class="op">=</span> <span class="va">dat_circular</span> <span class="op">%&gt;%</span> <span class="fu"><a href="https://rdrr.io/r/stats/filter.html" class="external-link">filter</a></span><span class="op">(</span><span class="va">year</span> <span class="op">==</span> <span class="fl">2021</span><span class="op">)</span> <span class="op">%&gt;%</span> <span class="fu">select</span><span class="op">(</span><span class="op">-</span><span class="va">year</span><span class="op">)</span><span class="op">%&gt;%</span> <span class="fu">arrange</span><span class="op">(</span><span class="va">REG_ex</span>, <span class="va">REG_im</span><span class="op">)</span>,
               .GRIDCOLOR <span class="op">=</span> <span class="va">GridColor</span>,
               .FigTitle <span class="op">=</span> <span class="st">"Wheat trade, 2021"</span>,
               .ORDER <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="va">KeyPlayers</span>, <span class="st">"ROW"</span><span class="op">)</span>,
               .SaveDir <span class="op">=</span> <span class="st">"../man/figures"</span>,
               .SaveName <span class="op">=</span> <span class="st">"Fig_WheatTrade2021"</span><span class="op">)</span>
 
-<span class="fu">chord_wrapper</span><span class="op">(</span>.DF <span class="op">=</span> <span class="va">dat_circular</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> <span class="fu"><a href="https://rdrr.io/r/stats/filter.html" class="external-link">filter</a></span><span class="op">(</span><span class="va">year</span> <span class="op">==</span> <span class="fl">2020</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> <span class="fu">select</span><span class="op">(</span><span class="op">-</span><span class="va">year</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span> <span class="fu">arrange</span><span class="op">(</span><span class="va">REG_ex</span>, <span class="va">REG_im</span><span class="op">)</span>,
+<span class="fu">chord_wrapper</span><span class="op">(</span>.DF <span class="op">=</span> <span class="va">dat_circular</span> <span class="op">%&gt;%</span> <span class="fu"><a href="https://rdrr.io/r/stats/filter.html" class="external-link">filter</a></span><span class="op">(</span><span class="va">year</span> <span class="op">==</span> <span class="fl">2020</span><span class="op">)</span> <span class="op">%&gt;%</span> <span class="fu">select</span><span class="op">(</span><span class="op">-</span><span class="va">year</span><span class="op">)</span> <span class="op">%&gt;%</span> <span class="fu">arrange</span><span class="op">(</span><span class="va">REG_ex</span>, <span class="va">REG_im</span><span class="op">)</span>,
               .GRIDCOLOR <span class="op">=</span> <span class="va">GridColor</span>,
               .FigTitle <span class="op">=</span> <span class="st">"Wheat trade, 2020"</span>,
               .ORDER <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="va">KeyPlayers</span>, <span class="st">"ROW"</span><span class="op">)</span>,
               .SaveDir <span class="op">=</span> <span class="st">"../man/figures"</span>,
               .SaveName <span class="op">=</span> <span class="st">"Fig_WheatTrade2020"</span><span class="op">)</span>
-    </code></pre></div>
+    
+
+<span class="co"># Quickly adding time-series</span>
+<span class="va">TM_Wheat_1</span> <span class="op">%&gt;%</span> 
+  <span class="fu">group_by</span><span class="op">(</span><span class="va">REG_ex</span>, <span class="va">year</span><span class="op">)</span> <span class="op">%&gt;%</span> 
+  <span class="fu">summarize</span><span class="op">(</span>value <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/sum.html" class="external-link">sum</a></span><span class="op">(</span><span class="va">flow</span><span class="op">)</span><span class="op">)</span> <span class="op">%&gt;%</span> <span class="fu">ungroup</span><span class="op">(</span><span class="op">)</span> <span class="op">%&gt;%</span> 
+  <span class="fu"><a href="https://rdrr.io/r/stats/filter.html" class="external-link">filter</a></span><span class="op">(</span><span class="va">year</span> <span class="op">==</span> <span class="fl">2021</span><span class="op">)</span> <span class="op">%&gt;%</span><span class="fu">arrange</span><span class="op">(</span><span class="va">value</span><span class="op">)</span> <span class="op">%&gt;%</span> <span class="fu">top_n</span><span class="op">(</span><span class="fl">12</span>, <span class="va">value</span><span class="op">)</span> <span class="op">%&gt;%</span> 
+  <span class="fu">pull</span><span class="op">(</span><span class="va">REG_ex</span><span class="op">)</span> <span class="op">-&gt;</span> <span class="va">KeyPlayers_exporter</span>
+
+<span class="va">TM_Wheat_1</span> <span class="op">%&gt;%</span> 
+  <span class="fu">group_by</span><span class="op">(</span><span class="va">REG_im</span>, <span class="va">year</span><span class="op">)</span> <span class="op">%&gt;%</span> 
+  <span class="fu">summarize</span><span class="op">(</span>value <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/sum.html" class="external-link">sum</a></span><span class="op">(</span><span class="va">flow</span><span class="op">)</span><span class="op">)</span> <span class="op">%&gt;%</span> <span class="fu">ungroup</span><span class="op">(</span><span class="op">)</span> <span class="op">%&gt;%</span> 
+  <span class="fu"><a href="https://rdrr.io/r/stats/filter.html" class="external-link">filter</a></span><span class="op">(</span><span class="va">year</span> <span class="op">==</span> <span class="fl">2021</span><span class="op">)</span> <span class="op">%&gt;%</span><span class="fu">arrange</span><span class="op">(</span><span class="va">value</span><span class="op">)</span> <span class="op">%&gt;%</span> <span class="fu">top_n</span><span class="op">(</span><span class="fl">12</span>, <span class="va">value</span><span class="op">)</span> <span class="op">%&gt;%</span> 
+  <span class="fu">pull</span><span class="op">(</span><span class="va">REG_im</span><span class="op">)</span> <span class="op">-&gt;</span> <span class="va">KeyPlayers_importer</span>
+
+<span class="va">TM_Wheat_1</span> <span class="op">%&gt;%</span> 
+  <span class="fu">group_by</span><span class="op">(</span><span class="va">year</span><span class="op">)</span> <span class="op">%&gt;%</span> 
+  <span class="fu">summarize</span><span class="op">(</span>value <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/sum.html" class="external-link">sum</a></span><span class="op">(</span><span class="va">flow</span><span class="op">)</span><span class="op">)</span> <span class="op">%&gt;%</span> <span class="fu">ungroup</span><span class="op">(</span><span class="op">)</span> <span class="op">%&gt;%</span> 
+  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/ggplot.html" class="external-link">ggplot</a></span><span class="op">(</span><span class="fu"><a href="https://ggplot2.tidyverse.org/reference/aes.html" class="external-link">aes</a></span><span class="op">(</span>x <span class="op">=</span> <span class="va">year</span>, y <span class="op">=</span> <span class="va">value</span><span class="op">)</span><span class="op">)</span> <span class="op">+</span>
+  <span class="co">#geom_hline(yintercept = 0, size = 0.4, color = "grey") +</span>
+  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/geom_path.html" class="external-link">geom_line</a></span><span class="op">(</span><span class="fu"><a href="https://ggplot2.tidyverse.org/reference/aes.html" class="external-link">aes</a></span><span class="op">(</span>x <span class="op">=</span> <span class="va">year</span>, y <span class="op">=</span> <span class="va">value</span><span class="op">)</span>, color <span class="op">=</span> <span class="st">"red"</span>, size <span class="op">=</span> <span class="fl">1.2</span><span class="op">)</span> <span class="op">+</span>
+  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/geom_point.html" class="external-link">geom_point</a></span><span class="op">(</span>size <span class="op">=</span> <span class="fl">1.4</span>, color <span class="op">=</span> <span class="st">"red"</span><span class="op">)</span> <span class="op">+</span>
+  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/geom_smooth.html" class="external-link">geom_smooth</a></span><span class="op">(</span>linetype <span class="op">=</span> <span class="fl">5</span>, <span class="co">#method = "lm", </span>
+              color <span class="op">=</span> <span class="st">"black"</span>, size <span class="op">=</span> <span class="fl">1</span><span class="op">)</span> <span class="op">+</span>
+  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/ggtheme.html" class="external-link">theme_bw</a></span><span class="op">(</span><span class="op">)</span> <span class="op">+</span> 
+  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/labs.html" class="external-link">labs</a></span><span class="op">(</span>y <span class="op">=</span> <span class="st">"Million tonne"</span>, x <span class="op">=</span> <span class="st">"Year"</span>,
+       title <span class="op">=</span> <span class="st">"World wheat trade, 1990 - 2022"</span>, 
+       subtitle <span class="op">=</span> <span class="st">"Observations (red solid) &amp; smooth (loess) line (black dotted) "</span>,
+       caption <span class="op">=</span> <span class="st">"Data: FAOSTAT (2022 data may subject to updates) \n Code: JGCRI/gcamfaostat"</span><span class="op">)</span> <span class="op">+</span>
+  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/theme.html" class="external-link">theme</a></span><span class="op">(</span>text <span class="op">=</span> <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/element.html" class="external-link">element_text</a></span><span class="op">(</span>size <span class="op">=</span> <span class="fl">16</span><span class="op">)</span>,
+        panel.grid <span class="op">=</span> <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/element.html" class="external-link">element_line</a></span><span class="op">(</span>linetype <span class="op">=</span> <span class="fl">5</span><span class="op">)</span>,
+        axis.text <span class="op">=</span> <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/element.html" class="external-link">element_text</a></span><span class="op">(</span>colour <span class="op">=</span> <span class="st">"black"</span>, size <span class="op">=</span> <span class="fl">16</span><span class="op">)</span>,
+        <span class="co">#axis.text.x = element_text(angle = 40, hjust = 1, vjust = 1),</span>
+        strip.background <span class="op">=</span> <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/element.html" class="external-link">element_rect</a></span><span class="op">(</span>fill <span class="op">=</span> <span class="st">"grey90"</span><span class="op">)</span>,
+        legend.position <span class="op">=</span> <span class="st">"none"</span><span class="op">)</span> <span class="op">-&gt;</span> <span class="va">p</span>;<span class="va">p</span>
+
+<span class="fu"><a href="https://ggplot2.tidyverse.org/reference/ggsave.html" class="external-link">ggsave</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/file.path.html" class="external-link">file.path</a></span><span class="op">(</span><span class="st">"../man/figures"</span>, <span class="st">"Fig_WheatTradeWorldby2022.png"</span><span class="op">)</span>, <span class="va">p</span>, width <span class="op">=</span> <span class="fl">10</span>, height <span class="op">=</span> <span class="fl">8</span><span class="op">)</span>
+
+
+<span class="va">TM_Wheat_1</span> <span class="op">%&gt;%</span> 
+  <span class="fu"><a href="https://rdrr.io/r/stats/filter.html" class="external-link">filter</a></span><span class="op">(</span><span class="va">REG_ex</span> <span class="op"><a href="https://rdrr.io/r/base/match.html" class="external-link">%in%</a></span> <span class="va">KeyPlayers_exporter</span> <span class="op">)</span> <span class="op">%&gt;%</span> 
+  <span class="fu">group_by</span><span class="op">(</span><span class="va">REG_ex</span>, <span class="va">year</span><span class="op">)</span> <span class="op">%&gt;%</span> 
+  <span class="fu">summarize</span><span class="op">(</span>value <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/sum.html" class="external-link">sum</a></span><span class="op">(</span><span class="va">flow</span><span class="op">)</span><span class="op">)</span> <span class="op">%&gt;%</span> <span class="fu">ungroup</span><span class="op">(</span><span class="op">)</span> <span class="op">%&gt;%</span> 
+  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/ggplot.html" class="external-link">ggplot</a></span><span class="op">(</span><span class="fu"><a href="https://ggplot2.tidyverse.org/reference/aes.html" class="external-link">aes</a></span><span class="op">(</span>x <span class="op">=</span> <span class="va">year</span>, y <span class="op">=</span> <span class="va">value</span>, group <span class="op">=</span> <span class="va">REG_ex</span>, color <span class="op">=</span> <span class="va">REG_ex</span><span class="op">)</span><span class="op">)</span> <span class="op">+</span> <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/facet_wrap.html" class="external-link">facet_wrap</a></span><span class="op">(</span><span class="op">~</span><span class="va">REG_ex</span><span class="op">)</span> <span class="op">+</span> 
+  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/geom_abline.html" class="external-link">geom_hline</a></span><span class="op">(</span>yintercept <span class="op">=</span> <span class="fl">0</span>, size <span class="op">=</span> <span class="fl">0.4</span>, color <span class="op">=</span> <span class="st">"grey"</span><span class="op">)</span> <span class="op">+</span>
+  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/geom_path.html" class="external-link">geom_line</a></span><span class="op">(</span><span class="fu"><a href="https://ggplot2.tidyverse.org/reference/aes.html" class="external-link">aes</a></span><span class="op">(</span>x <span class="op">=</span> <span class="va">year</span>, y <span class="op">=</span> <span class="va">value</span>, group <span class="op">=</span> <span class="va">REG_ex</span>, color <span class="op">=</span> <span class="va">REG_ex</span><span class="op">)</span>, size <span class="op">=</span> <span class="fl">1.2</span><span class="op">)</span> <span class="op">+</span>
+  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/geom_point.html" class="external-link">geom_point</a></span><span class="op">(</span>size <span class="op">=</span> <span class="fl">1.4</span><span class="op">)</span> <span class="op">+</span>
+  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/geom_smooth.html" class="external-link">geom_smooth</a></span><span class="op">(</span>linetype <span class="op">=</span> <span class="fl">5</span>, <span class="co">#method = "lm", </span>
+              color <span class="op">=</span> <span class="st">"black"</span>, size <span class="op">=</span> <span class="fl">1</span><span class="op">)</span> <span class="op">+</span>
+  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/ggtheme.html" class="external-link">theme_bw</a></span><span class="op">(</span><span class="op">)</span> <span class="op">+</span> 
+  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/labs.html" class="external-link">labs</a></span><span class="op">(</span>y <span class="op">=</span> <span class="st">"Million tonne"</span>, x <span class="op">=</span> <span class="st">"Year"</span>,
+       title <span class="op">=</span> <span class="st">"Wheat export by region (top 12 exporter), by 2022"</span>, 
+       subtitle <span class="op">=</span> <span class="st">"Observations (colored solid) &amp; smooth (loess) line (black dotted) "</span>,
+       caption <span class="op">=</span> <span class="st">"Data: FAOSTAT \n Code: JGCRI/gcamfaostat"</span><span class="op">)</span> <span class="op">+</span>
+  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/theme.html" class="external-link">theme</a></span><span class="op">(</span>text <span class="op">=</span> <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/element.html" class="external-link">element_text</a></span><span class="op">(</span>size <span class="op">=</span> <span class="fl">16</span><span class="op">)</span>,
+        panel.grid <span class="op">=</span> <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/element.html" class="external-link">element_line</a></span><span class="op">(</span>linetype <span class="op">=</span> <span class="fl">5</span><span class="op">)</span>,
+        axis.text <span class="op">=</span> <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/element.html" class="external-link">element_text</a></span><span class="op">(</span>colour <span class="op">=</span> <span class="st">"black"</span>, size <span class="op">=</span> <span class="fl">16</span><span class="op">)</span>,
+        axis.text.x <span class="op">=</span> <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/element.html" class="external-link">element_text</a></span><span class="op">(</span>angle <span class="op">=</span> <span class="fl">40</span>, hjust <span class="op">=</span> <span class="fl">1</span>, vjust <span class="op">=</span> <span class="fl">1</span><span class="op">)</span>,
+        strip.background <span class="op">=</span> <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/element.html" class="external-link">element_rect</a></span><span class="op">(</span>fill <span class="op">=</span> <span class="st">"grey90"</span><span class="op">)</span>,
+        legend.position <span class="op">=</span> <span class="st">"none"</span><span class="op">)</span> <span class="op">-&gt;</span> <span class="va">p</span>
+
+<span class="fu"><a href="https://ggplot2.tidyverse.org/reference/ggsave.html" class="external-link">ggsave</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/file.path.html" class="external-link">file.path</a></span><span class="op">(</span><span class="st">"../man/figures"</span>, <span class="st">"Fig_WheatExportby2022.png"</span><span class="op">)</span>, <span class="va">p</span>, width <span class="op">=</span> <span class="fl">10</span>, height <span class="op">=</span> <span class="fl">8</span><span class="op">)</span>
+
+<span class="va">TM_Wheat_1</span> <span class="op">%&gt;%</span> 
+  <span class="fu"><a href="https://rdrr.io/r/stats/filter.html" class="external-link">filter</a></span><span class="op">(</span><span class="va">REG_im</span> <span class="op"><a href="https://rdrr.io/r/base/match.html" class="external-link">%in%</a></span> <span class="va">KeyPlayers_importer</span> <span class="op">)</span> <span class="op">%&gt;%</span> 
+  <span class="fu">group_by</span><span class="op">(</span><span class="va">REG_im</span>, <span class="va">year</span><span class="op">)</span> <span class="op">%&gt;%</span> 
+  <span class="fu">summarize</span><span class="op">(</span>value <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/sum.html" class="external-link">sum</a></span><span class="op">(</span><span class="va">flow</span><span class="op">)</span><span class="op">)</span> <span class="op">%&gt;%</span> <span class="fu">ungroup</span><span class="op">(</span><span class="op">)</span> <span class="op">%&gt;%</span> 
+  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/ggplot.html" class="external-link">ggplot</a></span><span class="op">(</span><span class="fu"><a href="https://ggplot2.tidyverse.org/reference/aes.html" class="external-link">aes</a></span><span class="op">(</span>x <span class="op">=</span> <span class="va">year</span>, y <span class="op">=</span> <span class="va">value</span>, group <span class="op">=</span> <span class="va">REG_im</span>, color <span class="op">=</span> <span class="va">REG_im</span><span class="op">)</span><span class="op">)</span> <span class="op">+</span> <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/facet_wrap.html" class="external-link">facet_wrap</a></span><span class="op">(</span><span class="op">~</span><span class="va">REG_im</span><span class="op">)</span> <span class="op">+</span> 
+  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/geom_abline.html" class="external-link">geom_hline</a></span><span class="op">(</span>yintercept <span class="op">=</span> <span class="fl">0</span>, size <span class="op">=</span> <span class="fl">0.4</span>, color <span class="op">=</span> <span class="st">"grey"</span><span class="op">)</span> <span class="op">+</span>
+  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/geom_path.html" class="external-link">geom_line</a></span><span class="op">(</span><span class="fu"><a href="https://ggplot2.tidyverse.org/reference/aes.html" class="external-link">aes</a></span><span class="op">(</span>x <span class="op">=</span> <span class="va">year</span>, y <span class="op">=</span> <span class="va">value</span>, group <span class="op">=</span> <span class="va">REG_im</span>, color <span class="op">=</span> <span class="va">REG_im</span><span class="op">)</span>, size <span class="op">=</span> <span class="fl">1.2</span><span class="op">)</span> <span class="op">+</span>
+  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/geom_point.html" class="external-link">geom_point</a></span><span class="op">(</span>size <span class="op">=</span> <span class="fl">1.4</span><span class="op">)</span> <span class="op">+</span>
+  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/geom_smooth.html" class="external-link">geom_smooth</a></span><span class="op">(</span>linetype <span class="op">=</span> <span class="fl">5</span>, <span class="co">#method = "lm", </span>
+              color <span class="op">=</span> <span class="st">"black"</span>, size <span class="op">=</span> <span class="fl">1</span><span class="op">)</span> <span class="op">+</span>
+  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/ggtheme.html" class="external-link">theme_bw</a></span><span class="op">(</span><span class="op">)</span> <span class="op">+</span> 
+  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/labs.html" class="external-link">labs</a></span><span class="op">(</span>y <span class="op">=</span> <span class="st">"Million tonne"</span>, x <span class="op">=</span> <span class="st">"Year"</span>,
+       title <span class="op">=</span> <span class="st">"Wheat import by region (top 12 importer), by 2022"</span>, 
+       subtitle <span class="op">=</span> <span class="st">"Observations (colored solid) &amp; smooth (loess) line (black dotted) "</span>,
+       caption <span class="op">=</span> <span class="st">"Data: FAOSTAT \n Code: JGCRI/gcamfaostat"</span><span class="op">)</span> <span class="op">+</span>
+  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/theme.html" class="external-link">theme</a></span><span class="op">(</span>text <span class="op">=</span> <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/element.html" class="external-link">element_text</a></span><span class="op">(</span>size <span class="op">=</span> <span class="fl">16</span><span class="op">)</span>,
+        panel.grid <span class="op">=</span> <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/element.html" class="external-link">element_line</a></span><span class="op">(</span>linetype <span class="op">=</span> <span class="fl">5</span><span class="op">)</span>,
+        axis.text <span class="op">=</span> <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/element.html" class="external-link">element_text</a></span><span class="op">(</span>colour <span class="op">=</span> <span class="st">"black"</span>, size <span class="op">=</span> <span class="fl">16</span><span class="op">)</span>,
+        axis.text.x <span class="op">=</span> <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/element.html" class="external-link">element_text</a></span><span class="op">(</span>angle <span class="op">=</span> <span class="fl">40</span>, hjust <span class="op">=</span> <span class="fl">1</span>, vjust <span class="op">=</span> <span class="fl">1</span><span class="op">)</span>,
+        strip.background <span class="op">=</span> <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/element.html" class="external-link">element_rect</a></span><span class="op">(</span>fill <span class="op">=</span> <span class="st">"grey90"</span><span class="op">)</span>,
+        legend.position <span class="op">=</span> <span class="st">"none"</span><span class="op">)</span> <span class="op">-&gt;</span> <span class="va">p</span>
+
+<span class="fu"><a href="https://ggplot2.tidyverse.org/reference/ggsave.html" class="external-link">ggsave</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/file.path.html" class="external-link">file.path</a></span><span class="op">(</span><span class="st">"../man/figures"</span>, <span class="st">"Fig_WheatImportby2022.png"</span><span class="op">)</span>, <span class="va">p</span>, width <span class="op">=</span> <span class="fl">10</span>, height <span class="op">=</span> <span class="fl">8</span><span class="op">)</span></code></pre></div>
 <ul>
 <li>Preview<br><img src="../reference/figures/Fig_WheatTrade2020.png" style="width:20.0%"><img src="../reference/figures/Fig_WheatTrade2021.png" style="width:20.0%">
 </li>
diff --git a/docs/articles/vignette_visualization.html b/docs/articles/vignette_visualization.html
index 465464de..7b4f91b2 100644
--- a/docs/articles/vignette_visualization.html
+++ b/docs/articles/vignette_visualization.html
@@ -112,7 +112,7 @@
     <div class="page-header toc-ignore">
       <h1 data-toc-skip>Visualization</h1>
             
-            <h4 data-toc-skip class="date">2024-01-28</h4>
+            <h4 data-toc-skip class="date">2024-02-11</h4>
       
       <small class="dont-index">Source: <a href="https://github.com/jgcri/gcamfaostat/blob/HEAD/vignettes/vignette_visualization.Rmd" class="external-link"><code>vignettes/vignette_visualization.Rmd</code></a></small>
       <div class="hidden name"><code>vignette_visualization.Rmd</code></div>
@@ -192,8 +192,8 @@ <h2 id="food-calories">Food Calories<a class="anchor" aria-label="anchor" href="
 <h2 id="trade-flows">Trade flows<a class="anchor" aria-label="anchor" href="#trade-flows"></a>
 </h2>
 <div class="float">
-<img src="../reference/figures/Fig_WheatTrade2020.png" style="width:100.0%" alt="World bilateral trade flow in 2020. The world total trade was 198 million tonnes."><div class="figcaption">World bilateral trade flow in 2020. The world
-total trade was 198 million tonnes.</div>
+<img src="../reference/figures/Fig_WheatTrade2021.png" style="width:100.0%" alt="World bilateral trade flow in 2021. The world total trade was 199 million tonnes."><div class="figcaption">World bilateral trade flow in 2021. The world
+total trade was 199 million tonnes.</div>
 </div>
 <hr>
 </div>