Colour areas of graphs in ggplot
g + scale_x_datetime(expand=c(0,0), breaks=pretty_breaks(n=20)) + geom_hline(yintercept=55) + geom_ribbon(ymin=0, ymax=55, fill="#abcbc9", alpha=0.5) + geom_ribbon(ymin=55, ymax=100, fill="#e3a6a1", alpha=0.5)