Tập tin này từ Wikimedia Commons

Tập tin:Mauna Loa CO2 monthly mean concentration.svg

Bách khoa toàn thư mở Wikipedia
Buớc tưới chuyển hướng Bước tới tìm kiếm

Tập tin gốc(tập tin SVG, 708×708 điểm ảnh trên danh nghĩa, kích thước: 407 kB)

Miêu tả

Miêu tả
English: This figure shows the history of atmospheric carbon dioxide concentrations as directly measured at Mauna Loa, Hawaii since 1958. This curve is known as the Keeling curve, and is an essential piece of evidence of the man-made increases in greenhouse gases that are believed to be the cause of global warming. The longest such record exists at Mauna Loa, but these measurements have been independently confirmed at many other sites around the world [1].

The annual fluctuation in carbon dioxide is caused by seasonal variations in carbon dioxide uptake by land plants. Since many more forests are concentrated in the Northern Hemisphere, more carbon dioxide is removed from the atmosphere during Northern Hemisphere summer than Southern Hemisphere summer. This annual cycle is shown in the inset figure by taking the average concentration for each month across all measured years.

The red curve shows the average monthly concentrations, and blue curve is a smoothed trend.

The carbon dioxide data is measured as the mole fraction in dry air. This dataset constitutes the longest record of direct measurements of CO2 in the atmosphere (data up to december 2018).

Ngày tạo ra
Nguồn gốc Tác phẩm do chính người tải lên tạo ra. Data from Dr. Pieter Tans, NOAA/ESRL and Dr. Ralph Keeling, Scripps Institution of Oceanography.
Tác giả Delorme
Phiên bản khác

[sửa đổi]

Vị trí đối tượng19° 32′ 10,31″ B, 155° 34′ 36,84″ T Kartographer map based on OpenStreetMap.Xem hình này và các hình ảnh lân cận trên: OpenStreetMap - Google Trái đấtinfo

Giấy phép

Tôi, người giữ bản quyền tác phẩm này, từ đây phát hành nó theo giấy phép sau:
w:vi:Creative Commons

ghi công chia sẻ tương tự

Tập tin này được phát hành theo Giấy phép Creative Commons Ghi công–Chia sẻ tương tự 4.0 Quốc tế.
Bạn được tự do:
  • chia sẻ – sao chép, phân phối và chuyển giao tác phẩm
  • pha trộn – để chuyển thể tác phẩm
Theo các điều kiện sau:
  • ghi công – Bạn phải ghi công tương ứng, cung cấp một liên kết đến giấy phép, và cho thấy các thay đổi có được thực hiện hay không. Bạn có thể làm điều đó bằng bất ký cách nào hợp lý, nhưng không phải bằng các cách gợi ý rằng người cho phép ủng hộ bạn hay việc sử dụng của bạn.
  • chia sẻ tương tự – Nếu bạn thay thế, biến đổi, hoặc làm tác phẩm khác dựa trên tác phẩm này, bạn chỉ được phân phối tác phẩm mới tạo ra với một giấy phép y hệt, tương tự hoặc tương thích.

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

Create this graph

R logo.svg
This chart was created with 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)
  
}

Chú thích

Ghi một dòng giải thích những gì có trong tập tin này
Atmospheric carbon dioxide concentrations at Mauna Loa, Hawaii since 1958 (plot in English)

Items portrayed in this file

tả

Khí quyển Trái Đất

Cacbon điôxít

Lịch sử tập tin

Nhấn vào một ngày/giờ để xem nội dung tập tin tại thời điểm đó.

(Mới nhất | Cũ nhất) Xem (10 mới hơn) () (10 | 20 | 50 | 100 | 250 | 500)
Ngày/giờHình nhỏKích cỡThành viênMiêu tả
hiện tại11:01, ngày 6 tháng 1 năm 2019Hình thu nhỏ của phiên bản vào lúc 11:01, ngày 6 tháng 1 năm 2019708×708 (407 kB)Oeneisfull 2018 year data ; data from Scripps due to US gov shutdown
08:57, ngày 21 tháng 10 năm 2018Hình thu nhỏ của phiên bản vào lúc 08:57, ngày 21 tháng 10 năm 2018708×708 (401 kB)Oeneisdata up to 2018-10
13:49, ngày 20 tháng 1 năm 2018Hình thu nhỏ của phiên bản vào lúc 13:49, ngày 20 tháng 1 năm 2018708×708 (376 kB)Oeneis1958-2017 data
14:59, ngày 8 tháng 10 năm 2017Hình thu nhỏ của phiên bản vào lúc 14:59, ngày 8 tháng 10 năm 2017708×708 (375 kB)Oeneisupdate data
17:12, ngày 11 tháng 1 năm 2017Hình thu nhỏ của phiên bản vào lúc 17:12, ngày 11 tháng 1 năm 2017512×512 (160 kB)OeneisTitle
17:03, ngày 11 tháng 1 năm 2017Hình thu nhỏ của phiên bản vào lúc 17:03, ngày 11 tháng 1 năm 2017512×512 (161 kB)Oeneisupdate with 2016 data
19:35, ngày 5 tháng 1 năm 2016Hình thu nhỏ của phiên bản vào lúc 19:35, ngày 5 tháng 1 năm 2016708×708 (364 kB)Oeneispoint size
19:10, ngày 5 tháng 1 năm 2016Hình thu nhỏ của phiên bản vào lúc 19:10, ngày 5 tháng 1 năm 2016708×708 (364 kB)OeneisFull dataset up to 2015-12-31
12:23, ngày 10 tháng 6 năm 2015Hình thu nhỏ của phiên bản vào lúc 12:23, ngày 10 tháng 6 năm 2015708×708 (285 kB)OeneisAdjusted smoothing
21:23, ngày 31 tháng 5 năm 2015Hình thu nhỏ của phiên bản vào lúc 21:23, ngày 31 tháng 5 năm 2015720×720 (285 kB)OeneisCorrected month names
(Mới nhất | Cũ nhất) Xem (10 mới hơn) () (10 | 20 | 50 | 100 | 250 | 500)
Có 2 trang tại Wikipedia tiếng Việt có liên kết đến tập tin (không hiển thị trang ở các dự án khác):

Sử dụng tập tin toàn cục

Các wiki sau đang sử dụng tập tin này:

Xem tập tin này đang dùng ở đâu toàn hệ thống.

Đặc tính hình