scripts/Figure2_HW_boxplot.R

trend_max <- table[type == 'max' & ifHI == 'HI']
ggplot(trend_max, aes(variable, slope)) + facet_wrap(~variable, scale = 'free') + geom_boxplot2()

trend_mean <- table[type == 'mean' & ifHI == 'HI']
ggplot(trend_mean, aes(variable, slope)) + facet_wrap(~variable, scale = 'free') + geom_boxplot2()
CUG-hydro/heatwave documentation built on Dec. 17, 2021, 1:53 p.m.