3 min read

Emissions de PM10 et PM25 du Royaume Uni

Total période 1970 à 2019

PM10

library(readr)
PM10_PM25_Time_Series <- read_csv("PM10_PM25_Time_Series.csv")
library(ggplot2)
ggplot(PM10_PM25_Time_Series, aes(year,pm10)) +
  geom_line(aes(color=pm10)) +
   labs(title = "Emission de particules fines (PM10) de 1970 à 2019 au Royaume Uni",
        caption = "Source: Gouvernement du Royaume Uni",
         x = "Années",
         y = "Emissions PM10 ",
         colour = "PM10",
     )

PM25

library(readr)
PM10_PM25_Time_Series <- read_csv("PM10_PM25_Time_Series.csv")
library(ggplot2)
ggplot(PM10_PM25_Time_Series, aes(year,pm25)) +
  geom_line(aes(color=pm25)) +
  labs(title = "Emission de particules fines (PM25) de 1970 à 2019 au Royaume Uni",
        caption = "Source: Gouvernement du Royaume Uni",
         x = "Années",
         y = "Emissions PM25 ",
         colour = "PM25",
     ) 

1990, 2005, 2018, 2019

PM25

library(readr)
uk_PM2_5_sector <- read_csv("uk_PM2_5_sector.csv")library(ggplot2)
ggplot(uk_PM2_5_sector, aes(Year,Emissions)) +
  geom_point(aes(color=Sector, shape=Sector)) +
  geom_line(aes(color=Sector)) +
  labs(title = "Emission de particules fines (PM25) par secteur du Royaume Uni",
        caption = "Source: Gouvernement du Royaume Uni",
         x = "Années",
         y = "Emissions",
         colour = "Secteur",
         shape = "Secteur"
     ) 

PM10

library(readr)
uk_PM10_sector <- read_csv("uk_PM10_sector.csv")library(ggplot2)
ggplot(uk_PM10_sector, aes(Year,Emissions)) +
  geom_point(aes(color=Sector, shape=Sector)) +
  geom_line(aes(color=Sector)) +
  labs(title = "Emission de particules fines (PM10) par secteur du Royaume Uni",
        caption = "Source: Gouvernement du Royaume Uni",
         x = "Années",
         y = "Emissions",
         colour = "Secteur",
         shape = "Secteur"
     )

Proportion des emissions PM25 par secteur en 1990

library(RColorBrewer)
count <- c(43.46717718,39.75334,33.4542753,29.3908903,95.17064)
lbls <- c("Domestique","Construction et usine","Process industriel", "Transport","Autres")
color <- brewer.pal(length(count), "Set2") 
pct <- round(count/sum(count)*100)
lbls <- paste(lbls,pct)
lbls <- paste(lbls,"%",sep = "" )
pie(count, labels = lbls, col = color, main = "Proportion des emissions PM25 par secteur en 1990")

Proportion des emissions PM25 par secteur en 2005

library(RColorBrewer)
count <- c(28.68231526,21.63637793,19.15784332,24.23367353,35.4467)
lbls <- c("Domestique","Construction et usine","Process industriel", "Transport","Autres")
color <- brewer.pal(length(count), "Set2") 
pct <- round(count/sum(count)*100)
lbls <- paste(lbls,pct)
lbls <- paste(lbls,"%",sep = "" )
pie(count, labels = lbls, col = color, main = "Proportion des emissions PM25 par secteur en 2005")

Proportion des emissions PM25 par secteur en 2018

library(RColorBrewer)
count <- c(47.35432128,20.5864062,13.94194731,13.12861116,16.75408)
lbls <- c("Domestique","Construction et usine","Process industriel", "Transport","Autres")
color <- brewer.pal(length(count), "Set2") 
pct <- round(count/sum(count)*100)
lbls <- paste(lbls,pct)
lbls <- paste(lbls,"%",sep = "" )
pie(count, labels = lbls, col = color, main = "Proportion des emissions PM25 par secteur en 2018")

Proportion des emissions PM25 par secteur en 2019

library(RColorBrewer)
count <- c(47.13659663,19.25912284,13.37445948,13.03611225,15.90479)
lbls <- c("Domestique","Construction et usine","Process industriel", "Transport","Autres")
color <- brewer.pal(length(count), "Set2") 
pct <- round(count/sum(count)*100)
lbls <- paste(lbls,pct)
lbls <- paste(lbls,"%",sep = "" )
pie(count, labels = lbls, col = color, main = "Proportion des emissions PM25 par secteur en 2019")

Source des données disponible sur gov.uk

Ce travail est sous licence Attribution-NonCommercial 4.0 International. Attribution-NonCommercial 4.0 International