generated from open-sdg/open-sdg-data-starter
-
Notifications
You must be signed in to change notification settings - Fork 2
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
1 parent
1be511c
commit aaa1ff3
Showing
6 changed files
with
2,155 additions
and
17 deletions.
There are no files selected for viewing
Large diffs are not rendered by default.
Oops, something went wrong.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,12 +1,23 @@ | ||
SDG_GOAL: ' ' | ||
SDG_TARGET: ' ' | ||
SDG_INDICATOR: ' ' | ||
STAT_CONC_DEF: ' ' | ||
# NATIONAL | ||
SDG_GOAL: | | ||
Objectif 12 : Établir des modes de consommation et de production durables | ||
SDG_TARGET: | | ||
Cible 12.4 : D'ici à 2020, parvenir à une gestion écologiquement rationnelle des produits chimiques et de tous les déchets tout au long de leur cycle de vie, conformément aux principes directeurs arrêtés à l'échelle internationale, et réduire nettement leur déversement dans l'air, l'eau et le sol, afin de minimiser leurs effets négatifs sur la santé et l'environnement | ||
SDG_INDICATOR: | | ||
Indicateur 12.4.2 : Déchets dangereux du ménage exprimé en pourcentage de tous les ménages | ||
STAT_CONC_DEF: ' ' | ||
DATA_COMP: ' ' | ||
REC_USE_LIM: ' ' | ||
SDG_GOAL__GLOBAL: ' ' | ||
SDG_TARGET__GLOBAL: ' ' | ||
SDG_INDICATOR__GLOBAL: ' ' | ||
|
||
reporting_status: notstarted | ||
|
||
# GLOBAL | ||
SDG_GOAL__GLOBAL: | | ||
Objectif 12 : Établir des modes de consommation et de production durables | ||
SDG_TARGET__GLOBAL: | | ||
Cible 12.4 : D'ici à 2020, parvenir à une gestion écologiquement rationnelle des produits chimiques et de tous les déchets tout au long de leur cycle de vie, conformément aux principes directeurs arrêtés à l'échelle internationale, et réduire nettement leur déversement dans l'air, l'eau et le sol, afin de minimiser leurs effets négatifs sur la santé et l'environnement | ||
SDG_INDICATOR__GLOBAL: | | ||
Indicateur 12.4.2 : a) Production de déchets dangereux par habitant et b) proportion de déchets dangereux traités, par type de traitement | ||
# SOURCE(S) | ||
source_active_1: 'true' | ||
source_url_text_1: Statistique Canada. Tableau 38-10-0155-01 Déchets ménagers dangereux | ||
source_url_1: https://doi.org/10.25318/3810015501-fra |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,40 @@ | ||
|
||
# 12.4.2 ------------------------------------------------------------------ | ||
|
||
library(dplyr) | ||
library(cansim) | ||
|
||
waste <- get_cansim("38-10-0155-01", factors = FALSE) | ||
geocodes <- read.csv("geocodes.csv") | ||
|
||
selected_waste_type <- c( | ||
"Leftover or expired medication", | ||
"Medical sharps", | ||
"Leftover paint or solvents", | ||
"Unwanted engine oil or anti-freeze", | ||
"Dead or unwanted batteries (excluding car batteries)", | ||
"Leftover pesticides", | ||
"Mattresses", | ||
"Textiles" | ||
) | ||
|
||
data_final <- | ||
waste %>% | ||
filter( | ||
`Household hazardous waste` %in% selected_waste_type | ||
) %>% | ||
select( | ||
Year = REF_DATE, | ||
Geography = GEO, | ||
`Household hazardous waste`, | ||
Value = VALUE | ||
) %>% | ||
left_join(geocodes) %>% | ||
relocate(GeoCode, .before = Value) | ||
|
||
write.csv( | ||
data_final, | ||
"data/indicator_12-4-2.csv", | ||
na = "", | ||
row.names = FALSE | ||
) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters