Open 7yl4r opened 1 year ago
source: MAKENKE.Rmd#LL112C1-L126C4
## subset SST for last year
SST.lastyear = SST %>% filter(year(time)==max(year(time)))
## make the plot
pp = ggplot(SST.clim, aes(yDay, SST.mean))
pp = pp + geom_line() + geom_smooth(span=0.25, se=FALSE, colour="steelblue") +
geom_ribbon(aes(ymin=SST.q25, ymax=SST.q75), fill="steelblue", alpha=0.5) +
geom_line(data=SST.lastyear, aes(yday(time), SST), colour="red") +
ylab("Temperatura del mar superficial °C") + xlab("Día del año") +
theme_bw(base_size = 9)
ggplotly(pp) %>% plotly::config(displayModeBar = F)
Differences:
And daily climatology over a period of a year above (compared to what long-term mean as sinusoidal curve) vs continuous (compared to long-term):
To also check out, these marine heat wave packages:
Here's another similar plot.
https://climatereanalyzer.org/clim/sst_daily/
This shows data from all years and then the most recent years in a different color.
I used the code from Enrique's to add a similar plot using the heat wave data here, but ran into library import issues when knitting. Changes are on the annual_plot branch until these issues are resolved
Copy over ideas from MBON CoralNet Dashboard.
@eqmh showed the dashboard for the MAKENKE.Rmd. Lots of good content also based on flexdashboard that could be copy-pasted into this project.
Summary of this dashboard: