File:Winter-NAO-Index-FR.svg
維基百科,自由的 encyclopedia
此 SVG 檔案的 PNG 預覽的大小:566 × 351 像素。 其他解析度:320 × 198 像素 | 640 × 397 像素 | 1,024 × 635 像素 | 1,280 × 794 像素 | 2,560 × 1,588 像素。
原始檔案 (SVG 檔案,表面大小:566 × 351 像素,檔案大小:159 KB)
摘要
描述Winter-NAO-Index-FR.svg |
Français : Indice hivernal de l'Oscillation nord-atlantique (ONA) ou North Atlantic oscillation (NAO) en anglais depuis 1823. Cet indice est calculé comme la différence de pression au niveau de la mer entre Gibraltar et l'Islande de décembre à mars. La courbe noire est un lissage des données et en gris son intervalle de confiance. |
日期 | |
來源 |
自己的作品, données de Climatic Research Unit, University of East Anglia. Référence : Jones, P.D., Jónsson, T. et Wheeler, D., 1997: Extension to the North Atlantic Oscillation using early instrumental pressure observations from Gibraltar and South-West Iceland. Int. J. Climatol. 17, 1433-1450. doi: 10.1002/(SICI)1097-0088(19971115)17:13<1433::AID-JOC203>3.0.CO;2-P |
作者 | Oeneis |
其他版本 |
[編輯]
|
授權條款
我,本作品的著作權持有者,決定用以下授權條款發佈本作品:
此檔案採用創用CC 姓名標示-相同方式分享 4.0 國際授權條款。
- 您可以自由:
- 分享 – 複製、發佈和傳播本作品
- 重新修改 – 創作演繹作品
- 惟需遵照下列條件:
- 姓名標示 – 您必須指名出正確的製作者,和提供授權條款的連結,以及表示是否有對內容上做出變更。您可以用任何合理的方式來行動,但不得以任何方式表明授權條款是對您許可或是由您所使用。
- 相同方式分享 – 如果您利用本素材進行再混合、轉換或創作,您必須基於如同原先的相同或兼容的條款,來分布您的貢獻成品。
Créer ce graphique
NAO annuelle et hivernale, multi-langues
R code
# Build multi languages plots for annual and winter NAO
# based on CRU data.
#
# Used for https://commons.wikimedia.org/wiki/Template:Other_versions/NAO_winter
# e.g. https://commons.wikimedia.org/wiki/File:Winter-NAO-Index.svg
# See https://commons.wikimedia.org/wiki/Template:Other_versions/NAO_winter.R to edit this file
library(dplyr)
library(readr)
library(tidyr)
library(ggplot2)
library(stringr)
library(glue)
theme_set(theme_bw())
theme_update(plot.caption = element_text(size = 7))
oldDec <- getOption("OutDec")
# get data : winter and annual
# add sign column for colors
nao_cru <- "https://crudata.uea.ac.uk/cru/data/nao/nao.dat" %>%
read_table(col_types = "iddddddddddddd", na = "-99.99", col_names = c("year", 1:12, "annual")) %>%
pivot_longer(-1, names_to = "period", values_to = "nao")
nao_cru_djfm <- nao_cru %>%
filter(period %in% c("12", "1", "2", "3")) %>%
mutate(winter = if_else(period == "12",
paste(year, year + 1, sep = "-"),
paste(year - 1, year, sep = "-"))) %>%
group_by(winter) %>%
summarise(nao = mean(nao, na.rm = TRUE)) %>%
mutate(year = as.numeric(str_extract(winter, "^\\d{4}")),
sign = if_else(nao < 0, "negative", "positive")) %>%
filter(year > 1822)
nao_cru_annual <- nao_cru %>%
filter(period == "annual") %>%
mutate(sign = if_else(nao < 0, "negative", "positive")) %>%
filter(year > 1822)
# manage languages
language <- list(
es_ES = list(
winter = list(
data = nao_cru_djfm,
title = "Índice de invierno de la Oscilación del Atlántico Norte (NAO)",
subtitle = "Gibraltar - SW de Islandia, de diciembre a marzo",
caption = "https://w.wiki/4b$m\nData : Climatic Research Unit, University of East Anglia.\nJones, P.D., Jónsson, T. y Wheeler, D. (1997)\nActualizado regularmente. Accedido a",
x = "Año",
y = "Diferencia de presión normalizada a nivel del mar (hPa)",
outDec = "."
),
annual = list(
data = nao_cru_annual,
title = "Índice anual de la Oscilación del Atlántico Norte (NAO)",
subtitle = "Gibraltar - SW de Islandia",
caption = "Data : Climatic Research Unit, University of East Anglia.\nJones, P.D., Jónsson, T. y Wheeler, D. (1997)\nActualizado regularmente. Accedido a",
x = "Año",
y = "Diferencia de presión normalizada a nivel del mar (hPa)",
outDec = "."
)
),
de_DE = list(
winter = list(
data = nao_cru_djfm,
title = "Nordatlantischen Oszillation (NAO) Winter Index",
subtitle = "Gibraltar - SW Island, Dezember bis März",
caption = "https://w.wiki/4b$m\nDatei : Climatic Research Unit, University of East Anglia.\nJones, P.D., Jónsson, T. und Wheeler, D. (1997)\nRegelmäßig aktualisiert. Zugänglich am",
x = "Jahre",
y = "Differenz der standardisierten Luftdruck (hPa)",
outDec = ","
),
annual = list(
data = nao_cru_annual,
title = "Nordatlantischen Oszillation (NAO) Index",
subtitle = "Gibraltar - SW Island",
caption = "Datei : Climatic Research Unit, University of East Anglia.\nJones, P.D., Jónsson, T. und Wheeler, D. (1997)\nRegelmäßig aktualisiert. Zugänglich am",
x = "Jahre",
y = "Differenz der standardisierten Luftdruck (hPa)",
outDec = ","
)
),
en_US = list(
winter = list(
data = nao_cru_djfm,
title = "North Atlantic Oscillation (NAO) winter index",
subtitle = "Gibraltar - SW Iceland, December to March",
caption = "https://w.wiki/4b$m\nData : Climatic Research Unit, University of East Anglia.\nJones, P.D., Jónsson, T. and Wheeler, D. (1997)\nUpdated regularly. Accessed",
x = "Year",
y = "Difference of normalized sea level pressure (hPa)",
outDec = "."
),
annual = list(
data = nao_cru_annual,
title = "North Atlantic Oscillation (NAO) annual index",
subtitle = "Gibraltar - SW Iceland",
caption = "Data : Climatic Research Unit, University of East Anglia.\nJones, P.D., Jónsson, T. and Wheeler, D. (1997)\nUpdated regularly. Accessed",
x = "Year",
y = "Difference of normalized sea level pressure (hPa)",
outDec = "."
)
),
fr_FR = list(
winter = list(
data = nao_cru_djfm,
title = "Indice hivernal de l'oscillation nord-atlantique (ONA)",
subtitle = "Gibraltar - SW Islande, décembre à mars",
caption = "https://w.wiki/4b$m\nDonnées : Climatic Research Unit, University of East Anglia.\nJones, P.D., Jónsson, T. et Wheeler, D. (1997)\nMise à jour régulière. Accédé le",
x = "année",
y = "différence de pression normalisée (hPa)",
outDec = ","
),
annual = list(
data = nao_cru_annual,
title = "Indice annuel de l'oscillation nord-atlantique (ONA)",
subtitle = "Gibraltar - SW Islande",
caption = "Données : Climatic Research Unit, University of East Anglia.\nJones, P.D., Jónsson, T. et Wheeler, D. (1997)\nMise à jour régulière. Accédé le",
x = "année",
y = "différence de pression normalisée (hPa)",
outDec = ","
)
),
it_IT = list(
winter = list(
data = nao_cru_djfm,
title = "Indice invernale dell'Oscillazione Nord Atlantica (NAO)",
subtitle = "Gibilterra - SW Islanda, da dicembre a marzo",
caption = "https://w.wiki/4b$m\nDati : Climatic Research Unit, University of East Anglia.\nJones, P.D., Jónsson, T. e Wheeler, D. (1997)\nAggiornato regolarmente. Accesso a",
x = "Anno",
y = "Differenza di pressione normalizzata\nal livello del mare (hPa)",
outDec = ","
),
annual = list(
data = nao_cru_annual,
title = "Indice annuale dell'Oscillazione Nord Atlantica (NAO)",
subtitle = "Gibilterra - SW Islanda",
caption = "Dati : Climatic Research Unit, University of East Anglia.\nJones, P.D., Jónsson, T. e Wheeler, D. (1997)\nAggiornato regolarmente. Accesso a",
x = "Anno",
y = "Differenza di pressione normalizzata\nal livello del mare (hPa)",
outDec = ","
)
)
)
for (l in names(language)) {
message(l)
for (t in names(language[[l]])) {
message(t)
current <- language[[l]][[t]]
options(OutDec = current$outDec)
# plot graph
ggplot(current$data, aes(year, nao)) +
geom_col(aes(fill = sign)) +
geom_smooth(span = .1, color = "black", alpha = 0.3) +
scale_fill_manual(values = c("positive" = "darkorange2",
"negative" = "deepskyblue3")) +
scale_x_continuous(breaks = seq(1820, max(current$data$year), 20)) +
guides(fill = "none") +
labs(title = current$title,
subtitle = current$subtitle,
caption = glue("{current$caption} {format(Sys.Date(), '%Y-%m-%d')}"),
x = current$x,
y = current$y)
ggsave(file = glue("nao_cru_{t}_{l}_{Sys.Date()}.svg"),
width = 20,
height = 12.4,
units = "cm",
scale = 0.8,
device = svg)
}
}
options(OutDec = oldDec)
在此檔案描寫的項目
描繪內容
28 9 2017
image/svg+xml
檔案歷史
點選日期/時間以檢視該時間的檔案版本。
日期/時間 | 縮圖 | 尺寸 | 使用者 | 備註 | |
---|---|---|---|---|---|
目前 | 2023年11月22日 (三) 07:43 | 566 × 351(159 KB) | Oeneis | update 2022-2023 | |
2022年12月22日 (四) 16:40 | 566 × 351(157 KB) | Oeneis | 2022 update | ||
2022年8月15日 (一) 08:13 | 566 × 351(160 KB) | Oeneis | update with 2021-2022 data | ||
2021年12月26日 (日) 17:17 | 566 × 351(156 KB) | Oeneis | update wiki link | ||
2021年12月26日 (日) 12:02 | 566 × 351(155 KB) | Oeneis | 2020-2021 data. Using CRU data | ||
2020年11月1日 (日) 13:22 | 566 × 351(140 KB) | Oeneis | données 2019 | ||
2018年10月21日 (日) 08:19 | 566 × 351(138 KB) | Oeneis | données 2017-2018 | ||
2017年10月8日 (日) 14:51 | 566 × 351(140 KB) | Oeneis | meilleur rendu svg | ||
2017年9月28日 (四) 20:12 | 512 × 317(46 KB) | Oeneis | Données 2016-2017 | ||
2016年11月19日 (六) 18:36 | 512 × 317(46 KB) | Oeneis | erreur import |
檔案用途
沒有使用此檔案的頁面。
全域檔案使用狀況
以下其他 wiki 使用了這個檔案:
- fr.wikipedia.org 的使用狀況
詮釋資料
此檔案中包含其他資訊,這些資訊可能是由數位相機或掃描器在建立或數位化過程中所新增的。若檔案自原始狀態已被修改,一些詳細資料可能無法完整反映出已修改的檔案。
寬度 | 453pt |
---|---|
高度 | 281pt |