KG4: update data 2021

output/KG4_data.csv

@@ -1,12 +1,13 @@
 "Jahr","Gebiet","Indikator_ID","Indikator_Name","Variable","Wert","Einheit","Datenquelle"
-2010,"Schweiz","KG4","Treibhausgas-Fussabdruck","Treibhausgas",14.8111607032573,"Tonnen CO₂-Äquivalente (CO₂eq) pro Kopf","Umweltgesamtrechnung, BFS"
-2011,"Schweiz","KG4","Treibhausgas-Fussabdruck","Treibhausgas",15.3079265538561,"Tonnen CO₂-Äquivalente (CO₂eq) pro Kopf","Umweltgesamtrechnung, BFS"
-2012,"Schweiz","KG4","Treibhausgas-Fussabdruck","Treibhausgas",15.301256243402,"Tonnen CO₂-Äquivalente (CO₂eq) pro Kopf","Umweltgesamtrechnung, BFS"
-2013,"Schweiz","KG4","Treibhausgas-Fussabdruck","Treibhausgas",14.9415166373517,"Tonnen CO₂-Äquivalente (CO₂eq) pro Kopf","Umweltgesamtrechnung, BFS"
-2014,"Schweiz","KG4","Treibhausgas-Fussabdruck","Treibhausgas",14.0470405939031,"Tonnen CO₂-Äquivalente (CO₂eq) pro Kopf","Umweltgesamtrechnung, BFS"
-2015,"Schweiz","KG4","Treibhausgas-Fussabdruck","Treibhausgas",13.9834540677147,"Tonnen CO₂-Äquivalente (CO₂eq) pro Kopf","Umweltgesamtrechnung, BFS"
-2016,"Schweiz","KG4","Treibhausgas-Fussabdruck","Treibhausgas",14.2230860770317,"Tonnen CO₂-Äquivalente (CO₂eq) pro Kopf","Umweltgesamtrechnung, BFS"
-2017,"Schweiz","KG4","Treibhausgas-Fussabdruck","Treibhausgas",13.6983324391929,"Tonnen CO₂-Äquivalente (CO₂eq) pro Kopf","Umweltgesamtrechnung, BFS"
-2018,"Schweiz","KG4","Treibhausgas-Fussabdruck","Treibhausgas",13.366275921898,"Tonnen CO₂-Äquivalente (CO₂eq) pro Kopf","Umweltgesamtrechnung, BFS"
-2019,"Schweiz","KG4","Treibhausgas-Fussabdruck","Treibhausgas",13.3693683113481,"Tonnen CO₂-Äquivalente (CO₂eq) pro Kopf","Umweltgesamtrechnung, BFS"
-2020,"Schweiz","KG4","Treibhausgas-Fussabdruck","Treibhausgas",11.8952342495929,"Tonnen CO₂-Äquivalente (CO₂eq) pro Kopf","Umweltgesamtrechnung, BFS"
+2010,"Schweiz","KG4","Treibhausgas-Fussabdruck","Treibhausgas",14.9707538969095,"Tonnen CO₂-Äquivalente (CO₂eq) pro Kopf","Umweltgesamtrechnung, BFS"
+2011,"Schweiz","KG4","Treibhausgas-Fussabdruck","Treibhausgas",15.4788199155185,"Tonnen CO₂-Äquivalente (CO₂eq) pro Kopf","Umweltgesamtrechnung, BFS"
+2012,"Schweiz","KG4","Treibhausgas-Fussabdruck","Treibhausgas",15.4523413608229,"Tonnen CO₂-Äquivalente (CO₂eq) pro Kopf","Umweltgesamtrechnung, BFS"
+2013,"Schweiz","KG4","Treibhausgas-Fussabdruck","Treibhausgas",15.2022463827748,"Tonnen CO₂-Äquivalente (CO₂eq) pro Kopf","Umweltgesamtrechnung, BFS"
+2014,"Schweiz","KG4","Treibhausgas-Fussabdruck","Treibhausgas",14.1285751904317,"Tonnen CO₂-Äquivalente (CO₂eq) pro Kopf","Umweltgesamtrechnung, BFS"
+2015,"Schweiz","KG4","Treibhausgas-Fussabdruck","Treibhausgas",14.056954715667,"Tonnen CO₂-Äquivalente (CO₂eq) pro Kopf","Umweltgesamtrechnung, BFS"
+2016,"Schweiz","KG4","Treibhausgas-Fussabdruck","Treibhausgas",14.3869647284634,"Tonnen CO₂-Äquivalente (CO₂eq) pro Kopf","Umweltgesamtrechnung, BFS"
+2017,"Schweiz","KG4","Treibhausgas-Fussabdruck","Treibhausgas",13.1652714463886,"Tonnen CO₂-Äquivalente (CO₂eq) pro Kopf","Umweltgesamtrechnung, BFS"
+2018,"Schweiz","KG4","Treibhausgas-Fussabdruck","Treibhausgas",13.5414809384421,"Tonnen CO₂-Äquivalente (CO₂eq) pro Kopf","Umweltgesamtrechnung, BFS"
+2019,"Schweiz","KG4","Treibhausgas-Fussabdruck","Treibhausgas",13.5990811176873,"Tonnen CO₂-Äquivalente (CO₂eq) pro Kopf","Umweltgesamtrechnung, BFS"
+2020,"Schweiz","KG4","Treibhausgas-Fussabdruck","Treibhausgas",12.6939733520432,"Tonnen CO₂-Äquivalente (CO₂eq) pro Kopf","Umweltgesamtrechnung, BFS"
+2021,"Schweiz","KG4","Treibhausgas-Fussabdruck","Treibhausgas",12.7898844251116,"Tonnen CO₂-Äquivalente (CO₂eq) pro Kopf","Umweltgesamtrechnung, BFS"

scripts/KG4_computations.R

@@ -30,7 +30,7 @@ KG4_pop <- decarbmonitoring::download_per_capita() %>%
 
 KG4_computed <- KG4_data %>%
   # HIER JEDES JAHR ANPASSEN!
-  dplyr::slice(5:25) %>%
+  dplyr::slice(5:26) %>%
   # Renaming of columns in preparation to bring data into a uniform structure
   dplyr::rename("Jahr" = 1, "Wert" = 2) %>%
   dplyr::mutate(Jahr = as.numeric(Jahr),