Fichier:Mauna Loa CO2 monthly mean concentration FR.svg

Une page de Wikipédia, l'encyclopédie libre.
Sauter à la navigation Sauter à la recherche
Fichier d’origine(Fichier SVG, résolution de 708 × 708 pixels, taille : 382 Kio)

Description[modifier]

Description
Français : Évolution de la teneur atmosphérique en dioxyde de carbone, mesurée depuis le volcan Mauna Loa, dans l'île de Hawaï. La courbe de cette évolution est connue sous le nom de « courbe de Keeling » et est une des preuves de la production humaine de gaz à effet de serre et de son impact sur le réchauffement climatique. C'est sur le Mauna Loa que les taux directs sont mesurés depuis le plus longtemps, mais on retrouve la même évolution sur d'autres sites dans le monde.

L'évolution de la concentration en CO2 est suivie à Mauna Loa depuis 1958 (données jusqu'à fin 2017).

La courbe rouge montre la teneur moyenne mensuelle de dioxyde de carbone, et la courbe bleu lisse cette tendance.

La fluctuation annuelle de dioxyde de carbone est due aux variations saisonnières causées par les plantes. Comme beaucoup de forêts se trouvent dans l'hémisphère nord, il y a plus de consommation de gaz carbonique de l'atmosphère durant l'été septentrional que pendant l'été austral. Ce cycle annuel est indiqué dans l'encart en haut à gauche de l'image et montre la concentration moyenne de gaz au cours des différents mois par rapport à la moyenne annuelle. Ce cycle se répète quelle que soit l'année observée.
Date
Source Travail personnel. Données de Dr. Pieter Tans, NOAA/ESRL and Dr. Ralph Keeling, Scripps Institution of Oceanography.
Auteur Delorme
Autres versions

[modifier]

Position de l'objet19° 32′ 10,31″ N, 155° 34′ 36,84″ O Kartographer map based on OpenStreetMap.Voir cet endroit et d’autres images sur : OpenStreetMap - Google Earthinfo

Conditions d'utilisation[modifier]

En tant que détenteur du droit d’auteur, je publie cette œuvre sous la licence suivante :
w:fr:Creative Commons

paternité partage à l’identique

Ce fichier est sous la licence Créative Commons Attribution - Partage dans les Mêmes Conditions 4.0 International.
Vous êtes libre :
  • de partager – de copier, distribuer et transmettre cette œuvre
  • d’adapter – de modifier cette œuvre
Sous les conditions suivantes :
  • paternité – Vous devez citer le nom de l’auteur original de la manière indiquée par l’auteur de l’œuvre ou le titulaire des droits qui vous confère cette autorisation (mais pas d’une manière qui suggérerait qu’il vous soutienne ou approuve votre utilisation de l’œuvre).
  • partage à l’identique – Si vous modifiez, transformez, ou vous basez sur cette œuvre, vous devez distribuer l’œuvre résultante sous la même licence ou une licence similaire à celle-ci.

Data source license[modifier]

«These data are made freely available to the public and the scientific community in the belief that their wide dissemination will lead to greater understanding and new scientific insights.»
—Pieter Tans, NOAA

Re-créer ce graphique[modifier]

R logo.svg
Ce graphique a été créé avec R:

R code

# Mauna Loa atmospheric CO2 change
# multi language plot for Wikipedia

# Required packages
library(tidyverse)
library(gridExtra)
library(scales)


# Translations ------------------------------------------------------------

language <- list(
  en_US = list(
    locale_lc_time = "en_US.UTF-8",
    title = expression(paste("Monthly mean ", CO[2], " concentration ")),
    caption = "Data : NOAA/P. Tans",
    x = "Year",
    y = expression(paste(CO[2], " fraction in dry air (", mu, "mol/mol)")),
    x2 = "Month",
    y2 = expression(atop(paste(CO[2], " fraction in dry air (", mu, "mol/mol)"), "Departure from yearly average")),
    title2 = "Seasonal variation"
  ),
  fr_FR = list(
    locale_lc_time = "fr_FR.UTF-8",
    title = expression(paste("Moyenne mensuelle de la concentration de ", CO[2])),
    caption = "données : NOAA/P. Tans",
    x = "année",
    y = expression(paste("fraction de ", CO[2], " dans l'air sec (", mu, "mol/mol)")),
    x2 = "mois",
    y2 = expression(atop(paste("fraction de ", CO[2], " dans l'air sec (", mu, "mol/mol)"), "en écart à la moyenne annuelle")),
    title2 = "Variation saisonnière"
  ),
  de_DE = list(
    locale_lc_time = "de_DE.UTF-8",
    title = expression(paste("Monatliche durchschnittliche ", CO[2], "-Konzentration")),
    caption = "Datei : NOAA/P. Tans",
    x = "Jahr",
    y = expression(paste(CO[2], "-Anteil in trockener Luft (", mu, "mol/mol)")),
    x2 = "Monate",
    y2 = expression(atop(paste(CO[2], "-Anteil in trockener Luft (", mu, "mol/mol)"), "Abweichung vom Jahresmittel")),
    title2 = "Monatliche Variation"
  ),
  es_ES = list(
    locale_lc_time = "es_ES.UTF-8",
    title = expression(paste("Media mensual de la concentración de ", CO[2])),
    caption = "dato : NOAA/P. Tans",
    x = "Año",
    y = expression(paste("Fraccion de ", CO[2],  " en aire secco (", mu, "mol/mol)")),
    x2 = "Mes",
    y2 = expression(atop(paste("Fraccion de ", CO[2],  " en aire secco (", mu, "mol/mol)"), "Desviación de la media anual")),
    title2 = "Variación mensual"
  ),
  cs_CZ = list(
    locale_lc_time = "cs_CZ.UTF-8",
    title = expression(paste("Průměrné měsíční koncentrace oxidu uhličitého")),
    caption = "data : NOAA/P. Tans",
    x = "rok",
    y = expression(paste("koncentrace ", CO[2], " v suchém vzduchu (", mu, "mol/mol)")),
    x2 = "měsíc",
    y2 = expression(atop(paste("koncentrace ", CO[2], " v suchém vzduchu (", mu, "mol/mol)"), "odchylka od ročního průměru")),
    title2 = "Měsíční změna (průměrná roční odchylka)"
  ),
  nn_NO = list(
    locale_lc_time = "nn_NO.UTF-8",
    title = expression(paste("Gjennomsnittlig månedlig ", CO[2], "-konsentrasjon")),
    caption = "data : NOAA/P. Tans",
    x = "År",
    y = expression(paste(CO[2],"-andel i tørr luft (", mu, "mol/mol)")),
    x2 = "Måned",
    y2 = expression(atop(paste(CO[2],"-andel i tørr luft (", mu, "mol/mol)"),
                         "Avvik fra årlig gjennomsnitt")),
    title2 = "Årlig variasjon"
  )
)


# Data --------------------------------------------------------------------

co2ml <- read.table("ftp://aftp.cmdl.noaa.gov/products/trends/co2/co2_mm_mlo.txt", na.strings = c(-99.99, -1))
colnames(co2ml) <- c("year", "month", "decimal", "average", "interpolated", "trend", "ndays")


# Prepare inset plot (seasonal variation) --------------------------------

# calculate the yearly means
m <- co2ml %>% 
  group_by(year) %>% 
  summarise(year_mean = mean(interpolated, na.rm = TRUE))

# join the yearly means to the dataset to calculate the monthly deviations to the yearly mean
# and add a virtual date for a nice x scale
mco2ml <- co2ml %>% 
  left_join(m, by = "year") %>% 
  mutate(delta = interpolated - year_mean,
         vdate = as.Date(paste0("2015-", sprintf("%02d", month), "-01")))


# Generate the plot for each language -------------------------------------

for (l in names(language)) {
  message(l)
  current <- language[[l]]
  
  # format the date in local names
  Sys.setlocale("LC_TIME", current$locale_lc_time)
  
  # main plot
  p1 <- ggplot(co2ml, aes(decimal, interpolated)) + 	
    geom_line(color = "pink") +
    geom_point(color = "red", size = 0.6) +
    stat_smooth(span = 0.1) +
    labs(
      x = current$x,
      y = current$y,
      title = current$title,
      subtitle = paste("Mauna Loa", min(co2ml$year), "-", max(co2ml$year)),
      caption = current$caption) +
    theme_bw() +
    theme(plot.caption = element_text(size = 7))
  
  # inset plot
  p2 <- ggplot(mco2ml, aes(vdate, delta)) +
    geom_hline(yintercept = 0) +
    stat_smooth(span = 0.4, se = FALSE) +
    stat_summary(fun.data = "mean_cl_boot", colour = "red", size = 0.3) + 
    scale_x_date(labels = date_format("%b")) +
    labs(
      x = current$x2,
      y = current$y2,
      title = current$title2) +
    theme_bw()
  
  # merge the plots and export in SVG
  p1 + annotation_custom(grob = ggplotGrob(p2), xmin = 1957, xmax = 1991, ymin = 361, ymax = 412)
  ggsave(file = paste0("co2_mauna_loa_", l, "_wp.svg"), width = 20, height = 20, units = "cm", device = svg)
  
}

Historique du fichier

Cliquer sur une date et heure pour voir le fichier tel qu'il était à ce moment-là.

Date et heureVignetteDimensionsUtilisateurCommentaire
actuel20 janvier 2018 à 15:54Vignette pour la version du 20 janvier 2018 à 15:54708 × 708 (382 Kio)Delormedonnées 1958 - fin 2017
8 octobre 2017 à 16:58Vignette pour la version du 8 octobre 2017 à 16:58708 × 708 (381 Kio)Delormemàj données
5 janvier 2016 à 21:33Vignette pour la version du 5 janvier 2016 à 21:33708 × 708 (364 Kio)DelormeTaille points
5 janvier 2016 à 21:09Vignette pour la version du 5 janvier 2016 à 21:09708 × 708 (364 Kio)DelormeMise à jour avec données complètes pour 2015
10 juin 2015 à 15:23Vignette pour la version du 10 juin 2015 à 15:23708 × 708 (285 Kio)DelormeLissage amélioré
31 mai 2015 à 23:27Vignette pour la version du 31 mai 2015 à 23:27720 × 720 (285 Kio)DelormeTaille des textes
31 mai 2015 à 22:53Vignette pour la version du 31 mai 2015 à 22:531 006 × 960 (285 Kio)DelormeUser created page with UploadWizard

Métadonnées