|
@@ -4,6 +4,10 @@ library(scales)
|
4
|
4
|
library(tidyverse)
|
5
|
5
|
library(readxl)
|
6
|
6
|
|
|
7
|
+# Original data from
|
|
8
|
+# https://catalogue.data.govt.nz/dataset/
|
|
9
|
+# new-zealands-energy-outlook/resource/3caad31e-aa96-4c94-8f54-1000518a0690?inner_span=True
|
|
10
|
+
|
7
|
11
|
Emissions.Sector <- read_excel("Emissions1990-2010.xlsx",
|
8
|
12
|
sheet = "Sector")
|
9
|
13
|
Emissions.Fuel <- read_excel("Emissions1990-2010.xlsx",
|