get_all_index Downloads all index returning a data.frame
get_all_index(nao = TRUE, olr = TRUE, oni = TRUE, pdo = TRUE, pna = TRUE, soi = TRUE, sstoi = TRUE, aao = TRUE)
| nao | Logica; inlude nao? |
|---|---|
| olr | Logica; inlude olr? |
| oni | Logica; inlude oni? |
| pdo | Logica; inlude pdo? |
| pna | Logica; inlude pna? |
| soi | Logica; inlude soi? |
| sstoi | Logica; inlude sstoi? |
| aao | Logica; inlude aao? |
data.frame
From https://www.ncdc.noaa.gov/teleconnections/enso/indicators/
# NOT RUN { #do not run a <- get_all_index() head(a) tail(a) b <- get_all_index(olr = FALSE) library(ggplot2) library(cptcity) ggplot(b, aes(x = Date, y = index, colour = index)) + geom_line()+ facet_wrap(~name, ncol = 3, scales = "free") + theme_bw() + scale_colour_gradientn(colours = rev(cpt(find_cpt("cb_div_RdB")[2])), limit = c(-4.6, 4.6)) head(b) tail(b) # }