File:Winter-NAO-Index.svg

From Wikimedia Commons, the free media repository
Jump to: navigation, search
Original file(SVG file, nominally 512 × 317 pixels, file size: 46 KB)

Summary[edit]

Description
English: Winter (December through March) index of the North Atlantic oscillation (NAO) based on the difference of normalized sea level pressure (SLP) between Lisbon, Portugal and Stykkishólmur/Reykjavík, Iceland since 1864, with loess smoothing (black, confidence interval in grey).
Date
Source Created by Marsupilami ; updated with 2015 data and produced with R code by Delorme
Data source : Hurrell, James & National Center for Atmospheric Research Staff Hurrell North Atlantic Oscillation (NAO) Index (station-based) / Hosted data / "DJFM North Atlantic Oscillation Index (Station-Based) "
Author Delorme
Other versions

[edit]

Create this graph[edit]

Annual and winter NAO in 3 languages

R logo.svg
This vector image was created with R:

R code

# Build multi languages plots for annual and winter NAO
# based on Hurrell data.

library(tidyverse)
library(readr)

# get data : winter and annual
# add sign column for colors
nao_djfm_hurrell <- "https://climatedataguide.ucar.edu/sites/default/files/nao_station_djfm.txt" %>% 
  read_table(skip = 1, col_types = "id", na = "-999.0", col_names = c("year", "nao")) %>% 
  mutate(sign = ifelse(nao < 0, "negative", "positive")) %>% 
  na.omit()

nao_hurrell <- "https://climatedataguide.ucar.edu/sites/default/files/nao_station_annual.txt" %>% 
  read_table(skip = 1, col_types = "id", na = "-999.0",col_names = c("year", "nao")) %>% 
  mutate(sign = ifelse(nao < 0, "negative", "positive")) %>% 
  na.omit()


# manage languages
language <- list(
  fr_FR = list(
    winter = list(
      data = nao_djfm_hurrell,
      title = "Indice hivernal de l'oscillation nord-atlantique (ONA)",
      subtitle = "Lisbonne - Stykkishólmur/Reykjavik, décembre à mars",
      caption = "Données : Climate Analysis Section, NCAR, Boulder, USA, Hurrell (2003)\nMise à jour régulière. Accédé",
      x = "Année",
      y = "Différence de pression normalisée"
    ),
    annual = list(
      data = nao_hurrell,
      title = "Indice annuel de l'oscillation nord-atlantique (ONA)",
      subtitle = "Lisbonne - Stykkishólmur/Reykjavik",
      caption = "Données : Climate Analysis Section, NCAR, Boulder, USA, Hurrell (2003)\nMise à jour régulière. Accédé",
      x = "Année",
      y = "Différence de pression normalisée"
    )
  ),
  en_US = list(
    winter = list(
      data = nao_djfm_hurrell,            
      title = "North Atlantic Oscillation (NAO) winter index",
      subtitle = "Lisbon - Stykkishólmur/Reykjavík, December to March",
      caption = "NAO Index Data provided by the Climate Analysis Section, NCAR, Boulder, USA, Hurrell (2003)\nUpdated regularly. Accessed",
      x = "Year",
      y = "Difference of normalized sea level pressure"
    ),
    annual = list(
      data = nao_hurrell,
      title = "North Atlantic Oscillation (NAO) annual index",
      subtitle = "Lisbon - Stykkishólmur/Reykjavík",
      caption = "NAO Index Data provided by the Climate Analysis Section, NCAR, Boulder, USA, Hurrell (2003)\nUpdated regularly. Accessed",
      x = "Year",
      y = "Difference of normalized sea level pressure"
    )
  ),
  de_DE = list(
    winter = list(
      data = nao_djfm_hurrell,
      title = "Nordatlantischen Oszillation (NAO) Winter Index",
      subtitle = "Lisbon - Stykkishólmur/Reykjavík, Dezember bis März",
      caption = "Datei : Climate Analysis Section, NCAR, Boulder, USA, Hurrell (2003)\nRegelmäßig aktualisiert. Zugänglich am",
      x = "Jahre",
      y = "Differenz der standardisierten Luftdruck"
    ),
    annual = list(
      data = nao_hurrell,      
      title = "Nordatlantischen Oszillation (NAO) Index",
      subtitle = "Lisbon - Stykkishólmur/Reykjavík",
      caption = "Datei : Climate Analysis Section, NCAR, Boulder, USA, Hurrell (2003)\nRegelmäßig aktualisiert. Zugänglich am",
      x = "Jahre",
      y = "Differenz der standardisierten Luftdruck"
    )
  )
)

for (l in names(language)) {
  message(l)
  for (t in names(language[[l]])) {
    message(t)
    current <- language[[l]][[t]]
    
    # plot graph
    ggplot(data = current$data, aes(year, nao)) +
      geom_bar(stat = "identity", aes(fill = sign)) +
      geom_smooth(span = .15, color = "black", alpha = 0.3) +
      scale_fill_manual(values = c("positive" = "darkorange2", "negative" = "deepskyblue3")) +
      scale_x_continuous(breaks = seq(1860, max(current$data$year), 20)) +
      guides(fill = FALSE) +
      labs(
        title = current$title,
        subtitle = current$subtitle,
        caption = paste(current$caption, format(Sys.Date(), "%Y-%m-%d")),
        x = current$x,
        y = current$y) +
      theme_bw()
    
    ggsave(file = paste0("nao_hurrell_", t, "_", l, ".svg"), width = 21, height = 13, units = "cm", scale = 0.8)
  }
}

Licensing[edit]

Public domain I, the copyright holder of this work, release this work into the public domain. This applies worldwide.
In some countries this may not be legally possible; if so:
I grant anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law.

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current15:57, 16 November 2016Thumbnail for version as of 15:57, 16 November 2016512 × 317 (46 KB)Delorme (talk | contribs)2016 data
10:52, 23 May 2016Thumbnail for version as of 10:52, 23 May 2016512 × 369 (35 KB)Delorme (talk | contribs)axis labels
20:25, 9 July 2015Thumbnail for version as of 20:25, 9 July 2015708 × 531 (76 KB)Delorme (talk | contribs)Updated to 2015 values
19:00, 3 February 2010Thumbnail for version as of 19:00, 3 February 20101,024 × 638 (15 KB)Imalipusram (talk | contribs){{Information |Description={{en|1=North Atlantic Oscillation (NAO) index from 1864 - 2009. Data Source: http://www.cgd.ucar.edu/cas/jhurrell/Data/naodjfmindex.asc}} |Source=Created by Imalipusram |Author=[[User:Imalipusram|Imalipusram
  • You cannot overwrite this file.

File usage on other wikis

The following other wikis use this file:

Metadata