notes/spline_forecast_plot.R

In bbolker/McMasterPandemic: Pandemic Model

library(ggplot2);theme_set(theme_bw())
library(dplyr)

source("makestuff/makeRfuns.R") ## Will eventually be a package
commandEnvironments() ## Read in any environments specified as dependencies
makeGraphics()

print(head(forecastdat))


gg <- (ggplot(data=forecastdat, aes(x=date))
#	+ scale_y_log10()
	+ geom_point(aes(y=value,color=mod,alpha=type),size=0.1)
	+ scale_color_manual(values=c("black","blue","red"))
	+ scale_alpha_manual(values=c(1,0.3,0.3))
	+ geom_ribbon(aes(ymin=lwr,ymax=upr,fill=mod),alpha=0.3)
	+ facet_wrap(~seed,scale="free")
	+ scale_fill_manual(values=c("black","blue","red"))
)

print(gg)

print(gg + scale_y_log10())

print(gg %+% filter(forecastdat, date>=as.Date("2020-05-30")))

## To save as .rda
## saveVars(y) ## OR
## saveEnviroment()

## To save as .rds
## rdsSave(x)