SST anomaly / marine heat wave - borrow from Enrique's coralNet

[7yl4r]

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:

• photo quadrats are captured
• images processed with coralnet to produce the .csv files in ./DATA/
• html generated from the .Rmd using the data from csv.

[bbest]

source: MAKENKE.Rmd#LL112C1-L126C4

Climatología

## 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) 

[bbest]

Differences:

1. Above: temperature is real value on y-axis, and deviation is shown as inflection
2. Below: temperature difference on y-axis, so mean is flat line

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):

https://noaa-onms.github.io/cinms/

[bbest]

To also check out, these marine heat wave packages:

• heatwaveR
  supercedes RmarineHeatWaves, an R package implementing the Python marineHeatWaves

[dotis]

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.

[7yl4r]

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