# NOT RUN {
ts_res <- ts2clm(data = sst_WA, climatologyPeriod = c("1982-01-01", "2011-12-31"))
ts_res_sub <- ts_res[10500:10800,]
library(ggplot2)
library(plotly)
p <- ggplot(data = ts_res_sub, aes(x = t, y = temp)) +
geom_flame(aes(y2 = thresh), fill = "salmon") +
geom_line(aes(y = temp)) +
geom_line(aes(y = seas), colour = "green") +
geom_line(aes(y = thresh), colour = "red") +
labs(x = "", y = "Temperature (<U+00B0>C)")
plotly::ggplotly(p)
# }
Run the code above in your browser using DataLab