Skip to content
Snippets Groups Projects
Commit 1475c64d authored by SMAH Lisa's avatar SMAH Lisa
Browse files

#5

Dans les chapitres 1 et 2, inverser la position des valeurs dans la barre.
Modifications des titres du chapitre 4
parent d03c40f3
No related branches found
No related tags found
1 merge request!1merge de la dev vers main
...@@ -63,9 +63,9 @@ color<-c("ZAER transmises" = gouvdown::gouv_palettes$pal_gouv_qual1[5], ...@@ -63,9 +63,9 @@ color<-c("ZAER transmises" = gouvdown::gouv_palettes$pal_gouv_qual1[5],
# Tracer le graphique en barres horizontales # Tracer le graphique en barres horizontales
ggplot(data_reg, aes(x = Taux_reg , y = "", fill = Transmission)) + ggplot(data_reg, aes(x = Taux_reg , y = "", fill = Transmission)) +
geom_bar(stat = "identity", width = 0.3) + geom_bar(stat = "identity", width = 0.3, position = position_stack(reverse = TRUE)) +
geom_text(aes(label = paste0(round(Taux_reg, 1), "%")), position = position_stack(vjust = 0.5), size = 4, color = "black") + geom_text(aes(label = paste0(round(Taux_reg, 1), "%")), position = position_stack(reverse = TRUE,vjust = 0.5), size = 4, color = "black") +
geom_text(aes(label = paste("(", nombres, ")")), position = position_stack(vjust = 0.5), vjust = 2, size = 4, color = "black") + geom_text(aes(label = paste("(", nombres, ")")), position = position_stack(reverse = TRUE, vjust = 0.5), vjust = 2, size = 4, color = "black") +
scale_fill_manual(values = color) + scale_fill_manual(values = color) +
labs(title = "Nombre et taux de communes ayant transmis leur ZAER au niveau régional", labs(title = "Nombre et taux de communes ayant transmis leur ZAER au niveau régional",
x = "Taux (%)", x = "Taux (%)",
...@@ -106,9 +106,9 @@ color<-c("ZAER transmises" = gouvdown::gouv_palettes$pal_gouv_qual1[5], ...@@ -106,9 +106,9 @@ color<-c("ZAER transmises" = gouvdown::gouv_palettes$pal_gouv_qual1[5],
# Tracer le graphique en barres horizontales # Tracer le graphique en barres horizontales
ggplot(data_44, aes(x = Taux, y = "", fill = Transmission)) + ggplot(data_44, aes(x = Taux, y = "", fill = Transmission)) +
geom_bar(stat = "identity", width = 0.3,) + geom_bar(stat = "identity", width = 0.3,position = position_stack(reverse = TRUE)) +
geom_text(aes(label = paste0(Taux, "%")), position = position_stack(vjust = 0.5), size = 4, color = "black") + geom_text(aes(label = paste0(Taux, "%")), position = position_stack(vjust = 0.5, reverse = TRUE), size = 4, color = "black") +
geom_text(aes(label = paste("(", nombres, ")")), position = position_stack(vjust = 0.5), vjust = 2, size = 4, color = "black") + geom_text(aes(label = paste("(", nombres, ")")), position = position_stack(vjust = 0.5, reverse = TRUE), vjust = 2, size = 4, color = "black") +
scale_fill_manual(values = color) + scale_fill_manual(values = color) +
labs(title = "Nombre et taux de communes ayant transmis leur ZAER dans le département 44", labs(title = "Nombre et taux de communes ayant transmis leur ZAER dans le département 44",
x = "Taux (%)", x = "Taux (%)",
...@@ -151,9 +151,9 @@ color<-c("ZAER transmises" = gouvdown::gouv_palettes$pal_gouv_qual1[5], ...@@ -151,9 +151,9 @@ color<-c("ZAER transmises" = gouvdown::gouv_palettes$pal_gouv_qual1[5],
# Tracer le graphique en barres horizontales # Tracer le graphique en barres horizontales
ggplot(data, aes(x = Taux, y = "", fill = Transmission)) + ggplot(data, aes(x = Taux, y = "", fill = Transmission)) +
geom_bar(stat = "identity", width = 0.3,) + geom_bar(stat = "identity", width = 0.3,position = position_stack(reverse = TRUE)) +
geom_text(aes(label = paste0(Taux, "%")), position = position_stack(vjust = 0.5), size = 4, color = "black") + geom_text(aes(label = paste0(Taux, "%")), position = position_stack(vjust = 0.5, reverse = TRUE), size = 4, color = "black") +
geom_text(aes(label = paste("(", nombres, ")")), position = position_stack(vjust = 0.5), vjust = 2, size = 4, color = "black") + geom_text(aes(label = paste("(", nombres, ")")), position = position_stack(vjust = 0.5, reverse = TRUE), vjust = 2, size = 4, color = "black") +
scale_fill_manual(values = color) + scale_fill_manual(values = color) +
labs(title = "Nombre et taux de communes ayant transmis leur ZAER dans le département 49", labs(title = "Nombre et taux de communes ayant transmis leur ZAER dans le département 49",
x = "Taux (%)", x = "Taux (%)",
...@@ -191,9 +191,9 @@ color<-c("ZAER transmises" = gouvdown::gouv_palettes$pal_gouv_qual1[5], ...@@ -191,9 +191,9 @@ color<-c("ZAER transmises" = gouvdown::gouv_palettes$pal_gouv_qual1[5],
# Tracer le graphique en barres horizontales # Tracer le graphique en barres horizontales
ggplot(data_53, aes(x = Taux, y = "", fill = Transmission)) + ggplot(data_53, aes(x = Taux, y = "", fill = Transmission)) +
geom_bar(stat = "identity", width = 0.3,) + geom_bar(stat = "identity", width = 0.3,position = position_stack(reverse = TRUE)) +
geom_text(aes(label = paste0(Taux, "%")), position = position_stack(vjust = 0.5), size = 4, color = "black") + geom_text(aes(label = paste0(Taux, "%")), position = position_stack(vjust = 0.5, reverse = TRUE), size = 4, color = "black") +
geom_text(aes(label = paste("(", nombres, ")")), position = position_stack(vjust = 0.5), vjust = 2, size = 4, color = "black") + geom_text(aes(label = paste("(", nombres, ")")), position = position_stack(vjust = 0.5, reverse = TRUE), vjust = 2, size = 4, color = "black") +
scale_fill_manual(values = color) + scale_fill_manual(values = color) +
labs(title = "Nombre et taux de communes ayant transmis leur ZAER dans le département 53", labs(title = "Nombre et taux de communes ayant transmis leur ZAER dans le département 53",
x = "Taux (%)", x = "Taux (%)",
...@@ -233,9 +233,9 @@ color<-c("ZAER transmises" = gouvdown::gouv_palettes$pal_gouv_qual1[5], ...@@ -233,9 +233,9 @@ color<-c("ZAER transmises" = gouvdown::gouv_palettes$pal_gouv_qual1[5],
# Tracer le graphique en barres horizontales # Tracer le graphique en barres horizontales
ggplot(data_72, aes(x = Taux_72, y = "", fill = Transmission)) + ggplot(data_72, aes(x = Taux_72, y = "", fill = Transmission)) +
geom_bar(stat = "identity", width = 0.3) + geom_bar(stat = "identity", width = 0.3, position = position_stack(reverse = TRUE)) +
geom_text(aes(label = paste0(Taux_72, "%")), position = position_stack(vjust = 0.5), size = 4, color = "black") + geom_text(aes(label = paste0(Taux_72, "%")), position = position_stack(vjust = 0.5, reverse = TRUE), size = 4, color = "black") +
geom_text(aes(label = paste("(", nombres, ")")), position = position_stack(vjust = 0.5), vjust = 2, size = 4, color = "black") + geom_text(aes(label = paste("(", nombres, ")")), position = position_stack(vjust = 0.5, reverse = TRUE), vjust = 2, size = 4, color = "black") +
scale_fill_manual(values = color) + scale_fill_manual(values = color) +
labs(title = "Nombre et taux de communes ayant transmis leur ZAER dans le département 72", labs(title = "Nombre et taux de communes ayant transmis leur ZAER dans le département 72",
x = "Taux (%)", x = "Taux (%)",
...@@ -272,9 +272,9 @@ color<-c("ZAER transmises" = gouvdown::gouv_palettes$pal_gouv_qual1[5], ...@@ -272,9 +272,9 @@ color<-c("ZAER transmises" = gouvdown::gouv_palettes$pal_gouv_qual1[5],
# Tracer le graphique en barres horizontales # Tracer le graphique en barres horizontales
ggplot(data_85, aes(x = Taux, y = "", fill = Transmission)) + ggplot(data_85, aes(x = Taux, y = "", fill = Transmission)) +
geom_bar(stat = "identity", width = 0.3,) + geom_bar(stat = "identity", width = 0.3, position = position_stack(reverse = TRUE)) +
geom_text(aes(label = paste0(Taux, "%")), position = position_stack(vjust = 0.5), size = 4, color = "black") + geom_text(aes(label = paste0(Taux, "%")), position = position_stack(reverse = TRUE,vjust = 0.5), size = 4, color = "black") +
geom_text(aes(label = paste("(", nombres, ")")), position = position_stack(vjust = 0.5), vjust = 2, size = 4, color = "black") + geom_text(aes(label = paste("(", nombres, ")")), position = position_stack(reverse = TRUE, vjust = 0.5), vjust = 2, size = 4, color = "black") +
scale_fill_manual(values = color) + scale_fill_manual(values = color) +
labs(title = "Nombre et taux de communes ayant transmis leur ZAER dans le département 85", labs(title = "Nombre et taux de communes ayant transmis leur ZAER dans le département 85",
x = "Taux (%)", x = "Taux (%)",
...@@ -314,9 +314,9 @@ color<-c(gouvdown::gouv_palettes$pal_gouv_div1[2], ...@@ -314,9 +314,9 @@ color<-c(gouvdown::gouv_palettes$pal_gouv_div1[2],
gouvdown::gouv_palettes$pal_gouv_qual1[9]) gouvdown::gouv_palettes$pal_gouv_qual1[9])
# Tracer le graphique en barres horizontales # Tracer le graphique en barres horizontales
ggplot(data_reg, aes(x = Taux_reg, y = "", fill = Transmission)) + ggplot(data_reg, aes(x = Taux_reg, y = "", fill = Transmission)) +
geom_bar(stat = "identity", width = 0.3) + geom_bar(stat = "identity", width = 0.3,position = position_stack(reverse = TRUE)) +
geom_text(aes(label = paste0(Taux_reg, "%")), position = position_stack(vjust = 0.5), size = 4, color = "white") + geom_text(aes(label = paste0(Taux_reg, "%")), position = position_stack(reverse = TRUE,vjust = 0.5), size = 4, color = "white") +
geom_text(aes(label = paste("(", nombres, ")")), position = position_stack(vjust = 0.5), vjust = 2, size = 4, color = "black") + geom_text(aes(label = paste("(", nombres, ")")), position = position_stack(reverse = TRUE,vjust = 0.5), vjust = 2, size = 4, color = "black") +
scale_fill_manual(values = color) + scale_fill_manual(values = color) +
labs(title = "Taux d'EPCI ayant fait un débat communautaire au niveau régional", labs(title = "Taux d'EPCI ayant fait un débat communautaire au niveau régional",
x = "Taux (%)", x = "Taux (%)",
...@@ -357,9 +357,9 @@ color<-c(gouvdown::gouv_palettes$pal_gouv_div1[2], ...@@ -357,9 +357,9 @@ color<-c(gouvdown::gouv_palettes$pal_gouv_div1[2],
# Tracer le graphique en barres horizontales # Tracer le graphique en barres horizontales
ggplot(data_epci_44, aes(x = Taux_debat, y = "", fill = Transmission)) + ggplot(data_epci_44, aes(x = Taux_debat, y = "", fill = Transmission)) +
geom_bar(stat = "identity", width = 0.3) + geom_bar(stat = "identity", width = 0.3, position = position_stack(reverse = TRUE)) +
geom_text(aes(label = paste0(Taux_debat, "%")), position = position_stack(vjust = 0.5), size = 4, color = "white") + geom_text(aes(label = paste0(Taux_debat, "%")), position = position_stack(reverse = TRUE, vjust = 0.5), size = 4, color = "white") +
geom_text(aes(label = paste("(", nombres, ")")), position = position_stack(vjust = 0.5), vjust = 2, size = 4, color = "black") + geom_text(aes(label = paste("(", nombres, ")")), position = position_stack(reverse = TRUE,vjust = 0.5), vjust = 2, size = 4, color = "black") +
scale_fill_manual(values = color) + scale_fill_manual(values = color) +
labs(title = "Taux et nombre d'EPCI ayant fait un débat communautaire dans le département 44", labs(title = "Taux et nombre d'EPCI ayant fait un débat communautaire dans le département 44",
x = "Taux (%)", x = "Taux (%)",
...@@ -394,9 +394,9 @@ color<-c(gouvdown::gouv_palettes$pal_gouv_div1[2], ...@@ -394,9 +394,9 @@ color<-c(gouvdown::gouv_palettes$pal_gouv_div1[2],
gouvdown::gouv_palettes$pal_gouv_qual1[9]) gouvdown::gouv_palettes$pal_gouv_qual1[9])
# Tracer le graphique en barres horizontales # Tracer le graphique en barres horizontales
ggplot(data_epci_49, aes(x = Taux_debat, y = "", fill = Transmission)) + ggplot(data_epci_49, aes(x = Taux_debat, y = "", fill = Transmission)) +
geom_bar(stat = "identity", width = 0.3) + geom_bar(stat = "identity", width = 0.3, position = position_stack(reverse = TRUE)) +
geom_text(aes(label = paste0(Taux_debat, "%")), position = position_stack(vjust = 0.5), size = 4, color = "white") + geom_text(aes(label = paste0(Taux_debat, "%")), position = position_stack(reverse = TRUE,vjust = 0.5), size = 4, color = "white") +
geom_text(aes(label = paste("(", nombres, ")")), position = position_stack(vjust = 0.5), vjust = 2, size = 4, color = "black") + geom_text(aes(label = paste("(", nombres, ")")), position = position_stack(reverse = TRUE,vjust = 0.5), vjust = 2, size = 4, color = "black") +
scale_fill_manual(values = color) + scale_fill_manual(values = color) +
labs(title = "Taux et nombre d'EPCI ayant fait un débat communautaire dans le département 49", labs(title = "Taux et nombre d'EPCI ayant fait un débat communautaire dans le département 49",
x = "Taux (%)", x = "Taux (%)",
...@@ -433,9 +433,9 @@ color<-c(gouvdown::gouv_palettes$pal_gouv_div1[2], ...@@ -433,9 +433,9 @@ color<-c(gouvdown::gouv_palettes$pal_gouv_div1[2],
# Tracer le graphique en barres horizontales # Tracer le graphique en barres horizontales
ggplot(data_epci_53, aes(x = Taux_debat, y = "", fill = Transmission)) + ggplot(data_epci_53, aes(x = Taux_debat, y = "", fill = Transmission)) +
geom_bar(stat = "identity", width = 0.3) + geom_bar(stat = "identity", width = 0.3,position = position_stack(reverse = TRUE)) +
geom_text(aes(label = paste0(Taux_debat, "%")), position = position_stack(vjust = 0.5), size = 4, color = "white") + geom_text(aes(label = paste0(Taux_debat, "%")), position = position_stack(reverse = TRUE,vjust = 0.5), size = 4, color = "white") +
geom_text(aes(label = paste("(", nombres, ")")), position = position_stack(vjust = 0.5), vjust = 2, size = 4, color = "black") + geom_text(aes(label = paste("(", nombres, ")")), position = position_stack(reverse = TRUE,vjust = 0.5), vjust = 2, size = 4, color = "black") +
scale_fill_manual(values = color) + scale_fill_manual(values = color) +
labs(title = "Taux et nombre d'EPCI ayant fait un débat communautaire dans le département 53", labs(title = "Taux et nombre d'EPCI ayant fait un débat communautaire dans le département 53",
x = "Taux (%)", x = "Taux (%)",
...@@ -473,9 +473,9 @@ color<-c(gouvdown::gouv_palettes$pal_gouv_div1[2], ...@@ -473,9 +473,9 @@ color<-c(gouvdown::gouv_palettes$pal_gouv_div1[2],
# Tracer le graphique en barres horizontales # Tracer le graphique en barres horizontales
ggplot(data_epci_72, aes(x = Taux_debat, y = "", fill = Transmission)) + ggplot(data_epci_72, aes(x = Taux_debat, y = "", fill = Transmission)) +
geom_bar(stat = "identity", width = 0.3) + geom_bar(stat = "identity", width = 0.3, position = position_stack(reverse = TRUE)) +
geom_text(aes(label = paste0(Taux_debat, "%")), position = position_stack(vjust = 0.5), size = 4, color = "white") + geom_text(aes(label = paste0(Taux_debat, "%")), position = position_stack(reverse = TRUE,vjust = 0.5), size = 4, color = "white") +
geom_text(aes(label = paste("(", nombres, ")")), position = position_stack(vjust = 0.5), vjust = 2, size = 4, color = "black") + geom_text(aes(label = paste("(", nombres, ")")), position = position_stack(reverse = TRUE,vjust = 0.5), vjust = 2, size = 4, color = "black") +
scale_fill_manual(values = color) + scale_fill_manual(values = color) +
labs(title = "Taux et nombre d'EPCI ayant fait un débat communautaire dans le département 72", labs(title = "Taux et nombre d'EPCI ayant fait un débat communautaire dans le département 72",
x = "Taux (%)", x = "Taux (%)",
...@@ -512,9 +512,9 @@ color<-c(gouvdown::gouv_palettes$pal_gouv_div1[2], ...@@ -512,9 +512,9 @@ color<-c(gouvdown::gouv_palettes$pal_gouv_div1[2],
# Tracer le graphique en barres horizontales # Tracer le graphique en barres horizontales
ggplot(data_epci_85, aes(x = Taux_debat, y = "", fill = Transmission)) + ggplot(data_epci_85, aes(x = Taux_debat, y = "", fill = Transmission)) +
geom_bar(stat = "identity", width = 0.3) + geom_bar(stat = "identity", width = 0.3,position = position_stack(reverse = TRUE)) +
geom_text(aes(label = paste0(Taux_debat, "%")), position = position_stack(vjust = 0.5), size = 4, color = "white") + geom_text(aes(label = paste0(Taux_debat, "%")), position = position_stack(reverse = TRUE,vjust = 0.5), size = 4, color = "white") +
geom_text(aes(label = paste("(", nombres, ")")), position = position_stack(vjust = 0.5), vjust = 2, size = 4, color = "black") + geom_text(aes(label = paste("(", nombres, ")")), position = position_stack(reverse = TRUE,vjust = 0.5), vjust = 2, size = 4, color = "black") +
scale_fill_manual(values = color) + scale_fill_manual(values = color) +
labs(title = "Taux et nombre d'EPCI ayant fait un débat communautaire dans le département 85", labs(title = "Taux et nombre d'EPCI ayant fait un débat communautaire dans le département 85",
x = "Taux (%)", x = "Taux (%)",
...@@ -765,7 +765,7 @@ ggplot(dep_filiere_zaer_85, aes(x = filiere, y = dep_txcom_zaer_fil, fill = fili ...@@ -765,7 +765,7 @@ ggplot(dep_filiere_zaer_85, aes(x = filiere, y = dep_txcom_zaer_fil, fill = fili
scale_fill_manual(values = filiere_couleur) + # Utilisation des couleurs définies scale_fill_manual(values = filiere_couleur) + # Utilisation des couleurs définies
geom_text(aes(label = paste0(round(dep_txcom_zaer_fil,1), "%")), position = position_dodge(width = 0.9), vjust = -0.5, size = 4, color = "black") + geom_text(aes(label = paste0(round(dep_txcom_zaer_fil,1), "%")), position = position_dodge(width = 0.9), vjust = -0.5, size = 4, color = "black") +
labs(title = "Taux de communes ayant défini des ZAER pour chaque filière dans le département 85", labs(title = "Taux de communes ayant défini des ZAER pour chaque filière dans le département 85",
x = "Filière", x = "Sous-filière",
y = "Taux (%)") + y = "Taux (%)") +
theme_classic() + theme_classic() +
theme(axis.text.x = element_text(angle = 45, hjust = 1))+ theme(axis.text.x = element_text(angle = 45, hjust = 1))+
...@@ -774,9 +774,12 @@ ggplot(dep_filiere_zaer_85, aes(x = filiere, y = dep_txcom_zaer_fil, fill = fili ...@@ -774,9 +774,12 @@ ggplot(dep_filiere_zaer_85, aes(x = filiere, y = dep_txcom_zaer_fil, fill = fili
# Chapitre 4 : Taux et nombre de communes ayant des zones définies dans chaque sous-filière existante pour SOLAIRE_PV # Chapitre 4 : Parmi les communes avec ZAER SOLAIRE_PV, répartition des sous-filières
## Niveau régional
## Niveau départemental
### Taux et nombre de communes ayant des zones définies dans chaque sous-filière existante pour SOLAIRE_PV pour le département 44 ### Parmi les communes avec ZAER SOLAIRE_PV, répartition des sous-filières pour le département 44
```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10} ```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
# Créer un dataframe avec les données fournies # Créer un dataframe avec les données fournies
...@@ -806,7 +809,7 @@ ggplot(dep_filiere_zaer_sf_44,aes(x = detail_filiere, y = dep_txcom_zaer_ssfil, ...@@ -806,7 +809,7 @@ ggplot(dep_filiere_zaer_sf_44,aes(x = detail_filiere, y = dep_txcom_zaer_ssfil,
scale_fill_manual(values = ssfiliere_couleur) + # Utilisation des couleurs définies scale_fill_manual(values = ssfiliere_couleur) + # Utilisation des couleurs définies
geom_text(aes(label = paste0(round(dep_txcom_zaer_ssfil,1), "%")), position = position_dodge(width = 0.9), vjust = -0.5, size = 4, color = "black") + geom_text(aes(label = paste0(round(dep_txcom_zaer_ssfil,1), "%")), position = position_dodge(width = 0.9), vjust = -0.5, size = 4, color = "black") +
labs(title = "Taux et nombre de communes ayant des zones définies dans chaque sous-filière existante dans le département 44", labs(title = "Taux et nombre de communes ayant des zones définies dans chaque sous-filière existante dans le département 44",
x = "Filière", x = "Sous-filière",
y = "Taux (%)") + y = "Taux (%)") +
theme_classic() + theme_classic() +
labs(fill = "")+ labs(fill = "")+
...@@ -816,7 +819,7 @@ ggplot(dep_filiere_zaer_sf_44,aes(x = detail_filiere, y = dep_txcom_zaer_ssfil, ...@@ -816,7 +819,7 @@ ggplot(dep_filiere_zaer_sf_44,aes(x = detail_filiere, y = dep_txcom_zaer_ssfil,
``` ```
### Taux et nombre de communes ayant des zones définies dans chaque sous-filière existante pour SOLAIRE_PV pour le département 49 ### Parmi les communes avec ZAER SOLAIRE_PV, répartition des sous-filières pour le département 49
```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10} ```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
# Créer un dataframe avec les données fournies # Créer un dataframe avec les données fournies
...@@ -847,7 +850,7 @@ ggplot(dep_filiere_zaer_sf_49,aes(x = detail_filiere, y = dep_txcom_zaer_ssfil, ...@@ -847,7 +850,7 @@ ggplot(dep_filiere_zaer_sf_49,aes(x = detail_filiere, y = dep_txcom_zaer_ssfil,
scale_fill_manual(values = ssfiliere_couleur) + # Utilisation des couleurs définies scale_fill_manual(values = ssfiliere_couleur) + # Utilisation des couleurs définies
geom_text(aes(label = paste0(round(dep_txcom_zaer_ssfil,1), "%")), position = position_dodge(width = 0.9), vjust = -0.5, size = 4, color = "black") + geom_text(aes(label = paste0(round(dep_txcom_zaer_ssfil,1), "%")), position = position_dodge(width = 0.9), vjust = -0.5, size = 4, color = "black") +
labs(title = "Taux et nombre de communes ayant des zones définies dans chaque sous-filière existante dans le département 49", labs(title = "Taux et nombre de communes ayant des zones définies dans chaque sous-filière existante dans le département 49",
x = "Filière", x = "Sous-filière",
y = "Taux (%)") + y = "Taux (%)") +
theme_classic() + theme_classic() +
labs(fill = "")+ labs(fill = "")+
...@@ -858,7 +861,7 @@ ggplot(dep_filiere_zaer_sf_49,aes(x = detail_filiere, y = dep_txcom_zaer_ssfil, ...@@ -858,7 +861,7 @@ ggplot(dep_filiere_zaer_sf_49,aes(x = detail_filiere, y = dep_txcom_zaer_ssfil,
``` ```
### Taux et nombre de communes ayant des zones définies dans chaque sous-filière existante pour SOLAIRE_PV pour le département 53 ### Parmi les communes avec ZAER SOLAIRE_PV, répartition des sous-filières pour le département 53
```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10} ```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
...@@ -890,7 +893,7 @@ ggplot(dep_filiere_zaer_sf_53,aes(x = detail_filiere, y = dep_txcom_zaer_ssfil, ...@@ -890,7 +893,7 @@ ggplot(dep_filiere_zaer_sf_53,aes(x = detail_filiere, y = dep_txcom_zaer_ssfil,
scale_fill_manual(values = ssfiliere_couleur) + # Utilisation des couleurs définies scale_fill_manual(values = ssfiliere_couleur) + # Utilisation des couleurs définies
geom_text(aes(label = paste0(round(dep_txcom_zaer_ssfil,1), "%")), position = position_dodge(width = 0.9), vjust = -0.5, size = 4, color = "black") + geom_text(aes(label = paste0(round(dep_txcom_zaer_ssfil,1), "%")), position = position_dodge(width = 0.9), vjust = -0.5, size = 4, color = "black") +
labs(title = "Taux et nombre de communes ayant des zones définies dans chaque sous-filière existante dans le département 53", labs(title = "Taux et nombre de communes ayant des zones définies dans chaque sous-filière existante dans le département 53",
x = "Filière", x = "Sous-filière",
y = "Taux (%)") + y = "Taux (%)") +
theme_classic() + theme_classic() +
labs(fill = "")+ labs(fill = "")+
...@@ -901,7 +904,7 @@ ggplot(dep_filiere_zaer_sf_53,aes(x = detail_filiere, y = dep_txcom_zaer_ssfil, ...@@ -901,7 +904,7 @@ ggplot(dep_filiere_zaer_sf_53,aes(x = detail_filiere, y = dep_txcom_zaer_ssfil,
``` ```
### Taux et nombre de communes ayant des zones définies dans chaque sous-filière existante pour SOLAIRE_PV pour le département 72 ### Parmi les communes avec ZAER SOLAIRE_PV, répartition des sous-filières pour le département 72
```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10} ```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
# Créer un dataframe avec les données fournies # Créer un dataframe avec les données fournies
...@@ -932,7 +935,7 @@ ggplot(dep_filiere_zaer_sf_72,aes(x = detail_filiere, y = dep_txcom_zaer_ssfil, ...@@ -932,7 +935,7 @@ ggplot(dep_filiere_zaer_sf_72,aes(x = detail_filiere, y = dep_txcom_zaer_ssfil,
scale_fill_manual(values = ssfiliere_couleur) + # Utilisation des couleurs définies scale_fill_manual(values = ssfiliere_couleur) + # Utilisation des couleurs définies
geom_text(aes(label = paste0(round(dep_txcom_zaer_ssfil,1), "%")), position = position_dodge(width = 0.9), vjust = -0.5, size = 4, color = "black") + geom_text(aes(label = paste0(round(dep_txcom_zaer_ssfil,1), "%")), position = position_dodge(width = 0.9), vjust = -0.5, size = 4, color = "black") +
labs(title = "Taux et nombre de communes ayant des zones définies dans chaque sous-filière existante dans le département 72", labs(title = "Taux et nombre de communes ayant des zones définies dans chaque sous-filière existante dans le département 72",
x = "Filière", x = "Sous-filière",
y = "Taux (%)") + y = "Taux (%)") +
theme_classic() + theme_classic() +
labs(fill = "")+ labs(fill = "")+
...@@ -943,7 +946,9 @@ ggplot(dep_filiere_zaer_sf_72,aes(x = detail_filiere, y = dep_txcom_zaer_ssfil, ...@@ -943,7 +946,9 @@ ggplot(dep_filiere_zaer_sf_72,aes(x = detail_filiere, y = dep_txcom_zaer_ssfil,
``` ```
### Taux et nombre de communes ayant des zones définies dans chaque sous-filière existante pour SOLAIRE_PV pour le département 85 ### Parmi les communes avec ZAER SOLAIRE_PV, répartition des sous-filières pour le département 85
```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10} ```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
# Créer un dataframe avec les données fournies # Créer un dataframe avec les données fournies
dep_filiere_zaer_sf_85 <- dep_filiere_ssfiliere_zaer[dep_filiere_ssfiliere_zaer$insee_dep == 85,] dep_filiere_zaer_sf_85 <- dep_filiere_ssfiliere_zaer[dep_filiere_ssfiliere_zaer$insee_dep == 85,]
...@@ -973,7 +978,7 @@ ggplot(dep_filiere_zaer_sf_85,aes(x = detail_filiere, y = dep_txcom_zaer_ssfil, ...@@ -973,7 +978,7 @@ ggplot(dep_filiere_zaer_sf_85,aes(x = detail_filiere, y = dep_txcom_zaer_ssfil,
scale_fill_manual(values = ssfiliere_couleur) + # Utilisation des couleurs définies scale_fill_manual(values = ssfiliere_couleur) + # Utilisation des couleurs définies
geom_text(aes(label = paste0(round(dep_txcom_zaer_ssfil,1), "%")), position = position_dodge(width = 0.9), vjust = -0.5, size = 4, color = "black") + geom_text(aes(label = paste0(round(dep_txcom_zaer_ssfil,1), "%")), position = position_dodge(width = 0.9), vjust = -0.5, size = 4, color = "black") +
labs(title = "Taux et nombre de communes ayant des zones définies dans chaque sous-filière existante dans le département 85", labs(title = "Taux et nombre de communes ayant des zones définies dans chaque sous-filière existante dans le département 85",
x = "Filière", x = "Sous-filière",
y = "Taux (%)") + y = "Taux (%)") +
theme_classic() + theme_classic() +
labs(fill = "")+ labs(fill = "")+
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment