From 584a5cfd673107d81930543fab854beea37af206 Mon Sep 17 00:00:00 2001 From: gma-lks Date: Wed, 10 Jul 2024 08:13:07 +0200 Subject: [PATCH] KG4: update data 2021 --- output/KG4_data.csv | 23 ++++++++++++----------- scripts/KG4_computations.R | 2 +- 2 files changed, 13 insertions(+), 12 deletions(-) diff --git a/output/KG4_data.csv b/output/KG4_data.csv index 61ce225..3aef7a6 100644 --- a/output/KG4_data.csv +++ b/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" diff --git a/scripts/KG4_computations.R b/scripts/KG4_computations.R index 0b3d433..5e40df9 100644 --- a/scripts/KG4_computations.R +++ b/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),