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 : 411 Kio)

Description

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 intra-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

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 donner les informations appropriées concernant l'auteur, fournir un lien vers la licence, et indiquer si des modifications ont été faites. Vous pouvez faire cela par tout moyen raisonnable, mais pas d'une mannière qui suggérerait qu’il vous soutienne ou approuve l'utilisation que vous en faites.
  • 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

« 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, in: NOAA

Re-créer ce graphique

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)
library(lubridate)

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

language <- list(
  en_US = list(
    locale_lc_time = "en_US.UTF-8",
    title = expression(paste("Monthly mean ", CO[2], " concentration ")),
    caption = paste("Data : R. F. Keeling, S. J. Walker, S. C. Piper and A. F. Bollenbacher\nScripps CO2 Program (http://scrippsco2.ucsd.edu). Accessed ", Sys.Date()),
    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 = paste("données : R. F. Keeling, S. J. Walker, S. C. Piper et A. F. Bollenbacher\nScripps CO2 Program (http://scrippsco2.ucsd.edu). Accédé le", Sys.Date()),
    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 = paste("Datei : R. F. Keeling, S. J. Walker, S. C. Piper und A. F. Bollenbacher\nScripps CO2 Program (http://scrippsco2.ucsd.edu). Zugänglich am", Sys.Date()),
    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 = paste("dato : R. F. Keeling, S. J. Walker, S. C. Piper y A. F. Bollenbacher\nScripps CO2 Program (http://scrippsco2.ucsd.edu). Visitada", Sys.Date()),
    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 = paste("data : R. F. Keeling, S. J. Walker, S. C. Piper a A. F. Bollenbacher\nScripps CO2 Program (http://scrippsco2.ucsd.edu). Přístupné", Sys.Date()),
    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 = paste("data : R. F. Keeling, S. J. Walker, S. C. Piper og A. F. Bollenbacher\nScripps CO2 Program (http://scrippsco2.ucsd.edu). Vist", Sys.Date()),
    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 --------------------------------------------------------------------

# http://scrippsco2.ucsd.edu/data/atmospheric_co2/primary_mlo_co2_record
# used during US gov shutdown
co2ml <- read_csv("http://scrippsco2.ucsd.edu/assets/data/atmospheric/stations/in_situ_co2/monthly/monthly_in_situ_co2_mlo.csv",
                  col_names = c("year", "month", "xls_date", "decimal",
                                "co2", "co2_seas_adj", "fit", "fit_seas_adj",
                                "co2_filled", "co2_filled_seas_adj"),
                  col_types = "iiiddddddd",
                  skip = 57,
                  na = "-99.99",
                  comment = "\"") %>% 
  group_by(year) %>% 
  mutate(year_mean = mean(co2_filled, na.rm = TRUE),
         delta = co2_filled - year_mean,
         vdate = ymd(paste0("2015-", 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, co2_filled)) + 	
    geom_line(color = "pink") +
    geom_point(color = "red", size = 0.6) +
    stat_smooth(span = 0.1) +
    scale_x_continuous(breaks = pretty_breaks()) +
    scale_y_continuous(breaks = pretty_breaks(4), minor_breaks = pretty_breaks(8)) +
    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(co2ml, 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(breaks = pretty_breaks(4), minor_breaks = pretty_breaks(12), 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 = paste("co2_mauna_loa", l, Sys.Date(), "wp.svg", sep = "_"), 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
actuel6 janvier 2019 à 12:06Vignette pour la version du 6 janvier 2019 à 12:06708 × 708 (411 Kio)DelormeDonnées 2018 complètes. Données Scripps
20 janvier 2018 à 14:54Vignette pour la version du 20 janvier 2018 à 14:54708 × 708 (382 Kio)Oeneisdonnées 1958 - fin 2017
8 octobre 2017 à 15:58Vignette pour la version du 8 octobre 2017 à 15:58708 × 708 (381 Kio)Oeneismàj données
5 janvier 2016 à 20:33Vignette pour la version du 5 janvier 2016 à 20:33708 × 708 (364 Kio)OeneisTaille points
5 janvier 2016 à 20:09Vignette pour la version du 5 janvier 2016 à 20:09708 × 708 (364 Kio)OeneisMise à jour avec données complètes pour 2015
10 juin 2015 à 14:23Vignette pour la version du 10 juin 2015 à 14:23708 × 708 (285 Kio)OeneisLissage amélioré
31 mai 2015 à 22:27Vignette pour la version du 31 mai 2015 à 22:27720 × 720 (285 Kio)OeneisTaille des textes
31 mai 2015 à 21:53Vignette pour la version du 31 mai 2015 à 21:531 006 × 960 (285 Kio)OeneisUser created page with UploadWizard

Métadonnées