Caricamento librerie

library(dplyr)
library(ggplot2)
library(reshape2)

Parte 1: Dati

I dataset edr2024-gps-current-table-1.csv e edr2024-gps-trends-table-1.csv scaricabili da qui https://www.euda.europa.eu/data/source-data/edr/2024/complete_en contengono dati sulla prevalenza o consumo di droga in Europa tratti da “European Drug Report 2024: Trends and Developments”. Tale report è l’analisi annuale dell’EMCDDA che fornisce una panoramica completa della situazione delle droghe in Europa, basata sui dati raccolti da Stati membri. Il report analizza l’uso illecito di droghe, i relativi danni, la fornitura e la produzione, nonché gli interventi di trattamento specializzati e le misure di riduzione del danno.

Caricamento dati

edr2024.gps.current.table.1 <- read.csv("edr2024-gps-current-table-1.csv")

edr2024.gps.trends.table.1 <- read.csv("edr2024-gps-trends-table-1.csv")

Parte 2 : Domanda di ricerca

Si vuole evidenziare che la diffusione delle droghe in Europa varia significativamente tra i diversi Stati membri, con differenze notevoli nella prevalenza d’uso delle principali sostanze stupefacenti.

La cannabis è la sostanza illecita più consumata in Europa. La prevalenza d’uso negli ultimi 12 mesi tra gli adulti (15-64 anni) varia notevolmente tra i diversi Paesi. Ad esempio:

Francia: circa il 11% degli adulti ha riferito l'uso di cannabis nell'ultimo anno.

Italia: circa il 10% degli adulti ha riferito l'uso di cannabis nell'ultimo anno.

Spagna: circa il 9% degli adulti ha riferito l'uso di cannabis nell'ultimo anno.

Paesi Bassi: circa il 7% degli adulti ha riferito l'uso di cannabis nell'ultimo anno.

La cocaina è la seconda sostanza illecita più consumata in Europa. La prevalenza d’uso negli ultimi 12 mesi tra i giovani adulti (15-34 anni) è la seguente:

Paesi Bassi: 5,5% nel 2022.

Irlanda: 4,8% nel 2019.

Francia: 3,2% nel 2017.

In termini di sequestri, nel 2022 gli Stati membri dell’UE hanno segnalato 84.000 sequestri di cocaina, per un totale di 323 tonnellate, segnando un record per il sesto anno consecutivo e un aumento rispetto alle 303 tonnellate del 2021. Tre Paesi europei hanno rappresentato il 68% del totale sequestrato:

Belgio: 111 tonnellate.
Reuters

Paesi Bassi: 51,5 tonnellate.

Spagna: 58,3 tonnellate.

L’uso di MDMA (Ecstasy) varia tra i Paesi europei. La prevalenza d’uso negli ultimi 12 mesi tra i giovani adulti (15-34 anni) è la seguente:

Paesi Bassi: 7,2% nel 2022.

Irlanda: 4,4% nel 2019.

Germania: 3,9% nel 2021.

L’uso di anfetamine mostra variazioni significative tra i Paesi. La prevalenza d’uso negli ultimi 12 mesi tra i giovani adulti (15-34 anni) è la seguente:

Finlandia: 2,4% nel 2022.

Germania: 2,3% nel 2021.

Paesi Bassi: 1,8% nel 2022.

L’uso di oppioidi, inclusa l’eroina, è meno diffuso rispetto ad altre sostanze, ma è associato a un elevato rischio di danni. La prevalenza stimata dell’uso ad alto rischio di oppioidi tra gli adulti (15-64 anni) è la seguente:

Regno Unito: 8,4 per 1.000 abitanti nel 2022.

Irlanda: 6,9 per 1.000 abitanti nel 2019.

Italia: 5,9 per 1.000 abitanti nel 2021.

Parte 3: Esplorazione dati

range(edr2024.gps.current.table.1$Survey.year)

## [1] 2008 2023

colnames(edr2024.gps.trends.table.1)[4:37] <- 1990:2023

df <- melt(edr2024.gps.trends.table.1, id=c("Country","Country.code","Geographical.scope","Substance","Recall.period","Age"))

df$variable <- as.integer(as.character(df$variable))

df <- df[-which(is.na(df$value)),]

CONSUMO DI DROGA IN EUROPA

edr2024.gps.current.table.1 %>%
  filter(Recall.period=="Last year", Age=="All adults (15-64)") %>%
  group_by(Substance) %>%
  summarise(media= mean(Prevalence....)) %>%
  mutate(Substance=reorder(Substance,media)) %>%
  ggplot(aes(Substance,media, fill = Substance))+
  geom_bar(stat = "identity")+
  geom_text(aes(label=round(media,2)), hjust=0, size=3 )+
  coord_flip()+
  ylim(0,84)+
  xlab("Stato")+
  ylab("Consumo di sostanze (%)")+
  ggtitle("Consumo medio di sostanze in Europa in percentuale", subtitle = "per sostanza nella fascia 15-64 anni nell'ultimo anno disponibile")

edr2024.gps.current.table.1 %>%
  filter(Recall.period=="Last year", Age=="All adults (15-64)", !Substance %in% c("Alcohol","Tobacco")) %>%
  mutate(Country=reorder(Country,Prevalence....)) %>%
  ggplot(aes(Country,Prevalence...., fill = Substance))+
  geom_bar(stat = "identity")+
  coord_flip()+
  xlab("Stato")+
  ylab("Consumo di droga (%)")+
  ggtitle("Consumo di droga in Europa in percentuale", subtitle = "per sostanza nella fascia 15-64 anni nell'ultimo anno disponibile")

CONSUMO DI CANNABIS

edr2024.gps.current.table.1 %>%
  filter(Recall.period=="Last year", Age=="All adults (15-64)", Substance=="Cannabis" ) %>%
  mutate(Survey.year= factor(Survey.year)) %>%
  mutate(Country=reorder(Country,Prevalence....)) %>%
  ggplot(aes(Country,Prevalence...., fill = Survey.year))+
  geom_bar(stat = "identity")+
  geom_text(aes(label=Prevalence....), hjust=0, size=3 )+
  coord_flip()+
  ylim(0,12)+
  xlab("Stato")+
  ylab("Consumo di cannabis (%)")+
  ggtitle("Consumo di cannabis in Europa in percentuale", subtitle = "nella fascia 15-64 anni nell'ultimo anno disponibile")

df %>%
  filter(Substance=="Cannabis",Age=="All adults (15-64)", Recall.period=="Last year", Country %in% c("Italy","Germany","France","Spain","Netherlands")) %>%
  ggplot(aes(variable,value, colour = Country))+
  geom_line(linewidth=1)+
  scale_x_continuous(breaks = seq(1990,2023,3))+
  scale_y_continuous(breaks = seq(0,14,2))+
  xlab("Anno")+
  ylab("Consumo di cannabis (%)")+
  ggtitle("Consumo di cannabis in percentuale", subtitle = "nella fascia 15-64 anni dal 1990 al 2023")

CONSUMO DI COCAINA

edr2024.gps.current.table.1 %>%
  filter(Recall.period=="Last year", Age=="All adults (15-64)", Substance=="Cocaine" ) %>%
  mutate(Survey.year= factor(Survey.year)) %>%
  mutate(Country=reorder(Country,Prevalence....)) %>%
  ggplot(aes(Country,Prevalence...., fill = Survey.year))+
  geom_bar(stat = "identity")+
  geom_text(aes(label=Prevalence....), hjust=0, size=3 )+
  coord_flip()+
  xlab("Stato")+
  ylab("Consumo di cocaina (%)")+
  ggtitle("Consumo di cocaina in Europa in percentuale", subtitle = "nella fascia 15-64 anni nell'ultimo anno disponibile")

df %>%
  filter(Substance=="Cocaine",Age=="All adults (15-64)", Recall.period=="Last year", Country %in% c("Italy","Germany","France","Spain","Netherlands","Ireland")) %>%
  ggplot(aes(variable,value, colour = Country))+
  geom_line(linewidth=1)+
  scale_x_continuous(breaks = seq(1990,2023,3))+
  #scale_y_continuous(breaks = seq(0,14,2))+
  xlab("Anno")+
  ylab("Consumo di cocaina (%)")+
  ggtitle("Consumo di cocaina in percentuale", subtitle = "nella fascia 15-64 anni dal 1990 al 2023")

CONSUMO DI ECSTASY

edr2024.gps.current.table.1 %>%
  filter(Recall.period=="Last year", Age=="All adults (15-64)", Substance=="Ecstasy" ) %>%
  mutate(Survey.year= factor(Survey.year)) %>%
  mutate(Country=reorder(Country,Prevalence....)) %>%
  ggplot(aes(Country,Prevalence...., fill = Survey.year))+
  geom_bar(stat = "identity")+
  geom_text(aes(label=Prevalence....), hjust=0, size=3 )+
  coord_flip()+
  ylim(0,5.5)+
  xlab("Stato")+
  ylab("Consumo di ecstasy (%)")+
  ggtitle("Consumo di ecstasy in Europa in percentuale", subtitle = "nella fascia 15-64 anni nell'ultimo anno disponibile")

df %>%
  filter(Substance=="Ecstasy",Age=="All adults (15-64)", Recall.period=="Last year", Country %in% c("Italy","Germany","France","Spain","Netherlands","Ireland")) %>%
  ggplot(aes(variable,value, colour = Country))+
  geom_line(linewidth=1)+
  scale_x_continuous(breaks = seq(1990,2023,3))+
  #scale_y_continuous(breaks = seq(0,14,2))+
  xlab("Anno")+
  ylab("Consumo di ecstasy (%)")+
  ggtitle("Consumo di ecstasy in percentuale", subtitle = "nella fascia 15-64 anni dal 1990 al 2023")

CONSUMO DI ANFETAMINE

edr2024.gps.current.table.1 %>%
  filter(Recall.period=="Last year", Age=="All adults (15-64)", Substance=="Amphetamines" ) %>%
  mutate(Survey.year= factor(Survey.year)) %>%
  mutate(Country=reorder(Country,Prevalence....)) %>%
  ggplot(aes(Country,Prevalence...., fill = Survey.year))+
  geom_bar(stat = "identity")+
  geom_text(aes(label=Prevalence....), hjust=0, size=3 )+
  coord_flip()+
  ylim(0,2.5)+
  xlab("Stato")+
  ylab("Consumo di anfetamine (%)")+
  ggtitle("Consumo di anfetamine in Europa in percentuale", subtitle = "nella fascia 15-64 anni nell'ultimo anno disponibile")

df %>%
  filter(Substance=="Amphetamines",Age=="All adults (15-64)", Recall.period=="Last year", Country %in% c("Italy","Germany","France","Spain","Netherlands","Finland")) %>%
  ggplot(aes(variable,value, colour = Country))+
  geom_line(linewidth=1)+
  scale_x_continuous(breaks = seq(1990,2023,3))+
  xlab("Anno")+
  ylab("Consumo di anfetamine (%)")+
  ggtitle("Consumo di anfetamine in percentuale", subtitle = "nella fascia 15-64 anni dal 1990 al 2023")

CONSUMO DI LSD

edr2024.gps.current.table.1 %>%
  filter(Recall.period=="Last year", Age=="All adults (15-64)", Substance=="LSD" ) %>%
  mutate(Survey.year= factor(Survey.year)) %>%
  mutate(Country=reorder(Country,Prevalence....)) %>%
  ggplot(aes(Country,Prevalence...., fill = Survey.year))+
  geom_bar(stat = "identity")+
  geom_text(aes(label=Prevalence....), hjust=0, size=3 )+
  coord_flip()+
  ylim(0,1.2)+
  xlab("Stato")+
  ylab("Consumo di LSD (%)")+
  ggtitle("Consumo di LSD in Europa in percentuale", subtitle = "nella fascia 15-64 anni nell'ultimo anno disponibile")

df %>%
  filter(Substance=="LSD",Age=="All adults (15-64)", Recall.period=="Last year", Country %in% c("Italy","Germany","France","Spain","Ireland", "Finland")) %>%
  ggplot(aes(variable,value, colour = Country))+
  geom_line(linewidth=1)+
  scale_x_continuous(breaks = seq(1990,2023,3))+
  xlab("Anno")+
  ylab("Consumo di LSD (%)")+
  ggtitle("Consumo di LSD in percentuale", subtitle = "nella fascia 15-64 anni dal 1990 al 2023")

Statistiche sul consumo di droga in Europa dal 1990 al 2023

24-03-2025