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()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.