diff --git a/myFirstRMarkdown.html b/myFirstRMarkdown.html index ed9c759eee0f788a1d7511380fc873fff5ff276f..cc5a83fde23f93d222951430de66dc12fa913f3d 100644 --- a/myFirstRMarkdown.html +++ b/myFirstRMarkdown.html @@ -218,7 +218,7 @@ div.tocify { <h1 class="title toc-ignore">myFirstRMarkdown</h1> <h4 class="author"><em>Ben Anderson (<a href="mailto:b.anderson@soton.ac.uk">b.anderson@soton.ac.uk</a> <code>@dataknut</code>)</em></h4> -<h4 class="date"><em>Last run at: 2018-03-28 23:00:54</em></h4> +<h4 class="date"><em>Last run at: 2018-03-29 14:44:06</em></h4> </div> @@ -231,7 +231,7 @@ div.tocify { <div id="load-data" class="section level1"> <h1><span class="header-section-number">2</span>  Load data</h1> <p>You can embed an R code chunk like this:</p> -<pre class="r"><code>generationDTorig <- fread("https://www.emi.ea.govt.nz/Wholesale/Datasets/Generation/Generation_MD/201801_Generation_MD.csv") +<pre class="r"><code>generationDTorig <- fread("https://www.emi.ea.govt.nz/Wholesale/Datasets/Generation/Generation_MD/201712_Generation_MD.csv") # reshape the data as it comes in a rather unhelpful form generationDT <- melt(generationDTorig, @@ -251,7 +251,7 @@ generationDT <- melt(generationDTorig, <p>You can also embed tables, for example:</p> <pre class="r"><code>summary(generationDT)</code></pre> <pre><code>## Site_Code POC_Code Nwk_Code -## Length:108500 Length:108500 Length:108500 +## Length:108400 Length:108400 Length:108400 ## Class :character Class :character Class :character ## Mode :character Mode :character Mode :character ## @@ -259,7 +259,7 @@ generationDT <- melt(generationDTorig, ## ## ## Gen_Code Fuel_Code Tech_Code -## Length:108500 Length:108500 Length:108500 +## Length:108400 Length:108400 Length:108400 ## Class :character Class :character Class :character ## Mode :character Mode :character Mode :character ## @@ -267,13 +267,13 @@ generationDT <- melt(generationDTorig, ## ## ## Trading_date Time_Period MW rDate -## Length:108500 TP1 : 2170 Min. : 0 Min. :2018-01-01 -## Class :character TP2 : 2170 1st Qu.: 3956 1st Qu.:2018-01-08 -## Mode :character TP3 : 2170 Median : 15763 Median :2018-01-16 -## TP4 : 2170 Mean : 31579 Mean :2018-01-16 -## TP5 : 2170 3rd Qu.: 38806 3rd Qu.:2018-01-24 -## TP6 : 2170 Max. :277913 Max. :2018-01-31 -## (Other):95480 NA's :4340</code></pre> +## Length:108400 TP1 : 2168 Min. : 0 Min. :2017-12-01 +## Class :character TP2 : 2168 1st Qu.: 5731 1st Qu.:2017-12-08 +## Mode :character TP3 : 2168 Median : 17396 Median :2017-12-16 +## TP4 : 2168 Mean : 31915 Mean :2017-12-15 +## TP5 : 2168 3rd Qu.: 39572 3rd Qu.:2017-12-24 +## TP6 : 2168 Max. :278538 Max. :2017-12-31 +## (Other):95392 NA's :4336</code></pre> <p>Or you can format the table nicely using the kable function from the knitr package:</p> <pre class="r"><code># note the chunk names needs to be unique t <- summary(generationDT) @@ -299,16 +299,16 @@ kable(t, caption = "Summary table")</code></pre> <tbody> <tr class="odd"> <td></td> -<td align="center">Length:108500</td> -<td align="center">Length:108500</td> -<td align="center">Length:108500</td> -<td align="center">Length:108500</td> -<td align="center">Length:108500</td> -<td align="center">Length:108500</td> -<td align="left">Length:108500</td> -<td align="center">TP1 : 2170</td> +<td align="center">Length:108400</td> +<td align="center">Length:108400</td> +<td align="center">Length:108400</td> +<td align="center">Length:108400</td> +<td align="center">Length:108400</td> +<td align="center">Length:108400</td> +<td align="left">Length:108400</td> +<td align="center">TP1 : 2168</td> <td align="center">Min. : 0</td> -<td align="center">Min. :2018-01-01</td> +<td align="center">Min. :2017-12-01</td> </tr> <tr class="even"> <td></td> @@ -319,9 +319,9 @@ kable(t, caption = "Summary table")</code></pre> <td align="center">Class :character</td> <td align="center">Class :character</td> <td align="left">Class :character</td> -<td align="center">TP2 : 2170</td> -<td align="center">1st Qu.: 3956</td> -<td align="center">1st Qu.:2018-01-08</td> +<td align="center">TP2 : 2168</td> +<td align="center">1st Qu.: 5731</td> +<td align="center">1st Qu.:2017-12-08</td> </tr> <tr class="odd"> <td></td> @@ -332,9 +332,9 @@ kable(t, caption = "Summary table")</code></pre> <td align="center">Mode :character</td> <td align="center">Mode :character</td> <td align="left">Mode :character</td> -<td align="center">TP3 : 2170</td> -<td align="center">Median : 15763</td> -<td align="center">Median :2018-01-16</td> +<td align="center">TP3 : 2168</td> +<td align="center">Median : 17396</td> +<td align="center">Median :2017-12-16</td> </tr> <tr class="even"> <td></td> @@ -345,9 +345,9 @@ kable(t, caption = "Summary table")</code></pre> <td align="center">NA</td> <td align="center">NA</td> <td align="left">NA</td> -<td align="center">TP4 : 2170</td> -<td align="center">Mean : 31579</td> -<td align="center">Mean :2018-01-16</td> +<td align="center">TP4 : 2168</td> +<td align="center">Mean : 31915</td> +<td align="center">Mean :2017-12-15</td> </tr> <tr class="odd"> <td></td> @@ -358,9 +358,9 @@ kable(t, caption = "Summary table")</code></pre> <td align="center">NA</td> <td align="center">NA</td> <td align="left">NA</td> -<td align="center">TP5 : 2170</td> -<td align="center">3rd Qu.: 38806</td> -<td align="center">3rd Qu.:2018-01-24</td> +<td align="center">TP5 : 2168</td> +<td align="center">3rd Qu.: 39572</td> +<td align="center">3rd Qu.:2017-12-24</td> </tr> <tr class="even"> <td></td> @@ -371,9 +371,9 @@ kable(t, caption = "Summary table")</code></pre> <td align="center">NA</td> <td align="center">NA</td> <td align="left">NA</td> -<td align="center">TP6 : 2170</td> -<td align="center">Max. :277913</td> -<td align="center">Max. :2018-01-31</td> +<td align="center">TP6 : 2168</td> +<td align="center">Max. :278538</td> +<td align="center">Max. :2017-12-31</td> </tr> <tr class="odd"> <td></td> @@ -384,8 +384,8 @@ kable(t, caption = "Summary table")</code></pre> <td align="center">NA</td> <td align="center">NA</td> <td align="left">NA</td> -<td align="center">(Other):95480</td> -<td align="center">NA’s :4340</td> +<td align="center">(Other):95392</td> +<td align="center">NA’s :4336</td> <td align="center">NA</td> </tr> </tbody> diff --git a/myFirstRMarkdown.md b/myFirstRMarkdown.md index 48ec0870fd533207c1117c002b8c56f04fc53cc9..e2b7e722edd8179fb1f596f4cfc4107fcd6bbccb 100644 --- a/myFirstRMarkdown.md +++ b/myFirstRMarkdown.md @@ -1,8 +1,8 @@ --- title: "myFirstRMarkdown" author: "Ben Anderson (b.anderson@soton.ac.uk `@dataknut`)" -date: 'Last run at: 2018-03-28 23:00:54' -output: +date: 'Last run at: 2018-03-29 14:44:06' +output: html_document: fig_caption: yes keep_md: yes @@ -26,7 +26,7 @@ You can embed an R code chunk like this: ```r -generationDTorig <- fread("https://www.emi.ea.govt.nz/Wholesale/Datasets/Generation/Generation_MD/201801_Generation_MD.csv") +generationDTorig <- fread("https://www.emi.ea.govt.nz/Wholesale/Datasets/Generation/Generation_MD/201712_Generation_MD.csv") # reshape the data as it comes in a rather unhelpful form generationDT <- melt(generationDTorig, @@ -59,7 +59,7 @@ summary(generationDT) ``` ## Site_Code POC_Code Nwk_Code -## Length:108500 Length:108500 Length:108500 +## Length:108400 Length:108400 Length:108400 ## Class :character Class :character Class :character ## Mode :character Mode :character Mode :character ## @@ -67,7 +67,7 @@ summary(generationDT) ## ## ## Gen_Code Fuel_Code Tech_Code -## Length:108500 Length:108500 Length:108500 +## Length:108400 Length:108400 Length:108400 ## Class :character Class :character Class :character ## Mode :character Mode :character Mode :character ## @@ -75,13 +75,13 @@ summary(generationDT) ## ## ## Trading_date Time_Period MW rDate -## Length:108500 TP1 : 2170 Min. : 0 Min. :2018-01-01 -## Class :character TP2 : 2170 1st Qu.: 3956 1st Qu.:2018-01-08 -## Mode :character TP3 : 2170 Median : 15763 Median :2018-01-16 -## TP4 : 2170 Mean : 31579 Mean :2018-01-16 -## TP5 : 2170 3rd Qu.: 38806 3rd Qu.:2018-01-24 -## TP6 : 2170 Max. :277913 Max. :2018-01-31 -## (Other):95480 NA's :4340 +## Length:108400 TP1 : 2168 Min. : 0 Min. :2017-12-01 +## Class :character TP2 : 2168 1st Qu.: 5731 1st Qu.:2017-12-08 +## Mode :character TP3 : 2168 Median : 17396 Median :2017-12-16 +## TP4 : 2168 Mean : 31915 Mean :2017-12-15 +## TP5 : 2168 3rd Qu.: 39572 3rd Qu.:2017-12-24 +## TP6 : 2168 Max. :278538 Max. :2017-12-31 +## (Other):95392 NA's :4336 ``` Or you can format the table nicely using the kable function from the knitr package: @@ -100,13 +100,13 @@ Table: Summary table Site_Code POC_Code Nwk_Code Gen_Code Fuel_Code Tech_Code Trading_date Time_Period MW rDate --- ----------------- ----------------- ----------------- ----------------- ----------------- ----------------- ----------------- -------------- --------------- ------------------- - Length:108500 Length:108500 Length:108500 Length:108500 Length:108500 Length:108500 Length:108500 TP1 : 2170 Min. : 0 Min. :2018-01-01 - Class :character Class :character Class :character Class :character Class :character Class :character Class :character TP2 : 2170 1st Qu.: 3956 1st Qu.:2018-01-08 - Mode :character Mode :character Mode :character Mode :character Mode :character Mode :character Mode :character TP3 : 2170 Median : 15763 Median :2018-01-16 - NA NA NA NA NA NA NA TP4 : 2170 Mean : 31579 Mean :2018-01-16 - NA NA NA NA NA NA NA TP5 : 2170 3rd Qu.: 38806 3rd Qu.:2018-01-24 - NA NA NA NA NA NA NA TP6 : 2170 Max. :277913 Max. :2018-01-31 - NA NA NA NA NA NA NA (Other):95480 NA's :4340 NA + Length:108400 Length:108400 Length:108400 Length:108400 Length:108400 Length:108400 Length:108400 TP1 : 2168 Min. : 0 Min. :2017-12-01 + Class :character Class :character Class :character Class :character Class :character Class :character Class :character TP2 : 2168 1st Qu.: 5731 1st Qu.:2017-12-08 + Mode :character Mode :character Mode :character Mode :character Mode :character Mode :character Mode :character TP3 : 2168 Median : 17396 Median :2017-12-16 + NA NA NA NA NA NA NA TP4 : 2168 Mean : 31915 Mean :2017-12-15 + NA NA NA NA NA NA NA TP5 : 2168 3rd Qu.: 39572 3rd Qu.:2017-12-24 + NA NA NA NA NA NA NA TP6 : 2168 Max. :278538 Max. :2017-12-31 + NA NA NA NA NA NA NA (Other):95392 NA's :4336 NA # Plot the data diff --git a/myFirstRMarkdown_files/figure-html/plot1-1.png b/myFirstRMarkdown_files/figure-html/plot1-1.png index 1b4699e608ad6feb8bad921e2fc618f2c5fc670b..92d9b5aedd67f13e438270c7b1e6a394fc4ea77d 100644 Binary files a/myFirstRMarkdown_files/figure-html/plot1-1.png and b/myFirstRMarkdown_files/figure-html/plot1-1.png differ diff --git a/myFirstRMarkdown_files/figure-html/pressure-1.png b/myFirstRMarkdown_files/figure-html/pressure-1.png deleted file mode 100644 index a3ecccdd67fe95e14a4351a13ea6eef223a7e1d0..0000000000000000000000000000000000000000 Binary files a/myFirstRMarkdown_files/figure-html/pressure-1.png and /dev/null differ diff --git a/myFirstRMarkdown_files/figure-html/unnamed-chunk-1-1.png b/myFirstRMarkdown_files/figure-html/unnamed-chunk-1-1.png index 55f3408c7bbabfeb0bfd94c2830b223bde04f621..daffdaf4a8980c30ded78d7b7f1c6cc5e5caf332 100644 Binary files a/myFirstRMarkdown_files/figure-html/unnamed-chunk-1-1.png and b/myFirstRMarkdown_files/figure-html/unnamed-chunk-1-1.png differ