Caricamento librerie :

library(dplyr)
library(ggplot2)

Parte 1 : Dati

I dati nazionali, regionali e comunali della raccolta differenziata in Sicilia e in italia si possono scaricare liberamente dal sito : https://www.catasto-rifiuti.isprambiente.it/index.php?pg=menuprodru

Caricamento dati:

Anno_2020_ProduzioneRURegionale_Italia <- read.csv("Anno_2020_ProduzioneRURegionale_Italia.csv")

Sicilia_Anno_2020_RDProvinciale <- read.csv("Sicilia_Anno_2020_RDProvinciale.csv", sep = ";")

Comuni.siciliani <- read.csv("Comuni siciliani.csv")

colnames(Anno_2020_ProduzioneRURegionale_Italia)[1]<-"Regione"
colnames(Anno_2020_ProduzioneRURegionale_Italia)[6]<-"Percentuale raccolta differenziata"
colnames(Anno_2020_ProduzioneRURegionale_Italia)[7]<-"Raccolta differenziata procapite"

colnames(Sicilia_Anno_2020_RDProvinciale)[6]<-"Percentuale raccolta differenziata"
colnames(Sicilia_Anno_2020_RDProvinciale)[7]<-"Raccolta differenziata procapite"

colnames(Comuni.siciliani)[7]<-"Percentuale raccolta differenziata"
colnames(Comuni.siciliani)[8]<-"Raccolta differenziata procapite"

Parte 2 : Esplorazione dati

Anno_2020_ProduzioneRURegionale_Italia %>%
  mutate(Regione= reorder(Regione,`Percentuale raccolta differenziata`)) %>%
  ggplot(aes(Regione,`Percentuale raccolta differenziata`))+
  geom_bar(stat = "identity", colour="green")+
  coord_flip()+
  ylim(0,80)+
  geom_text(aes(label=`Percentuale raccolta differenziata`), hjust=0, size=2)+
  ggtitle("Percentuale raccolta differenziata per regione italiana nel 2020")

Anno_2020_ProduzioneRURegionale_Italia %>%
  mutate(Regione= reorder(Regione,`Raccolta differenziata procapite`)) %>%
  ggplot(aes(Regione,`Raccolta differenziata procapite`))+
  geom_bar(stat = "identity", colour="orange")+
  coord_flip()+
  #ylim(0,80)+
  geom_text(aes(label=`Raccolta differenziata procapite`), hjust=0, size=2)+
  ggtitle("Raccolta differenziata procapite in Kg", subtitle = "per regione italiana nel 2020")

Sicilia_Anno_2020_RDProvinciale %>%
  mutate(Provincia= reorder(Provincia,`Percentuale raccolta differenziata`)) %>%
  ggplot(aes(Provincia,`Percentuale raccolta differenziata`))+
  geom_bar(stat = "identity", colour="green")+
  coord_flip()+
  #ylim(0,80)+
  geom_text(aes(label=`Percentuale raccolta differenziata`), hjust=0, size=2)+
  ggtitle("Percentuale raccolta differenziata", subtitle = "per provincia siciliana nel 2020")

Sicilia_Anno_2020_RDProvinciale %>%
  mutate(Provincia= reorder(Provincia,`Raccolta differenziata procapite`)) %>%
  ggplot(aes(Provincia,`Raccolta differenziata procapite`))+
  geom_bar(stat = "identity", colour="orange")+
  coord_flip()+
  #ylim(0,80)+
  geom_text(aes(label=`Raccolta differenziata procapite`), hjust=0, size=2)+
  ggtitle("Raccolta differenziata procapite in Kg", subtitle = "per provincia siciliana nel 2020")

Comuni.siciliani %>%
  mutate(Comune= reorder(Comune,`Percentuale raccolta differenziata`)) %>%
  ggplot(aes(Comune,`Percentuale raccolta differenziata`))+
  geom_bar(stat = "identity", colour="green")+
  coord_flip()+
  #ylim(0,80)+
  geom_text(aes(label=`Percentuale raccolta differenziata`), hjust=0, size=2)+
  ggtitle("Percentuale raccolta differenziata", subtitle = "per capoluoghi siciliani nel 2020")

Comuni.siciliani %>%
  mutate(Comune= reorder(Comune,`Raccolta differenziata procapite`)) %>%
  ggplot(aes(Comune,`Raccolta differenziata procapite`))+
  geom_bar(stat = "identity", colour="orange")+
  coord_flip()+
  #ylim(0,80)+
  geom_text(aes(label=`Raccolta differenziata procapite`), hjust=0, size=2)+
  ggtitle("Raccolta differenziata procapite in Kg", subtitle = "per capoluoghi siciliani nel 2020")