Esempi di statistica descrittiva e inferenziale/Eventi di siccità in Italia

Caricamento librerie

library(readxl)
library(dplyr)
library(ggplot2)

Parte 1: Dati

Nel dataset relativo ai disastri naturali italiani scaricabile da qui : https://emdat.be/ dopo essersi registrati con nome e cognome sono contenute 50 variabili e 271 osservazioni su vari tipi di disastri che si sono verificati dal 1905 al 2022. Da queste osservazioni se ne considerano 5 relative alla siccità in Italia verificatasi negli anni 1997, 2002, 2012, 2017, 2022.

Caricamento dati:

emdat_public_2023_02_21_query_uid_KxZhrv <- read_excel("emdat_public_2023_02_21_query_uid-KxZhrv.xlsx",  skip = 6)

Parte 2: Esplorazione dati

df<-emdat_public_2023_02_21_query_uid_KxZhrv %>%
  filter(Country=="Italy",`Disaster Group`=="Natural",  `Disaster Type`=="Drought") %>%
  group_by(Year) %>%
  summarise(total=n())

df1 <- data.frame(Anno=levels(as.factor(emdat_public_2023_02_21_query_uid_KxZhrv$Year)))
df1$siccita <- rep(0,nrow(df1))

df1$siccita[which(df1$Anno %in% df$Year)] <-df$total

df1 %>%
  ggplot(aes(as.integer(Anno),cumsum(siccita))) +
  geom_line(colour="red", size=1)+
  scale_x_continuous(breaks=seq(1901,2022,11))+
  #geom_text(aes(label=cumulative), vjust=0, size=2)+
  theme(axis.text.x = element_text(angle=45,hjust=1))+
  xlab("Anno") +
  ylab("Somma cumulativa")+
  ggtitle("Somma cumulativa degli eventi siccitosi in Italia", subtitle = "dal 1905 al 2022")

Tabella degli eventi di siccità in Italia

Anno	Periodo	Totale dei danni (in miliardi di dollari)	Regioni coinvolte
1997	Aprile	0.8
2002	Maggio	n/a	Basilicata, Puglia, Sardegna e Sicilia
2012	Da giugno ad ottobre	1.19	Abruzzo, Basilicata, Calabria, Campania, Emilia-Romagna, Friuli-Venezia Giulia, Lazio, Liguria, Lombardia, Marche, Molise, Piemonte, Puglia, Sardegna, Sicilia, Toscana, Trentino-Alto Adige, Umbria, Valle D'Aosta e Veneto
2017	Luglio	2.3	Abruzzo, Calabria, Campania, Emilia-Romagna, Lazio, Lombardia, Marche, Piemonte, Puglia, Sardegna, Sicilia, Toscana, Trentino-Alto Adige e Umbria
2022	Da giugno a dicembre	6	Piemonte, Friuli-Venezia Giulia, Lazio, Veneto, Valle D'Aosta, Lombardia, Emilia-Romagna, Marche, Umbria, Puglia, Toscana