Skip to content

Instantly share code, notes, and snippets.

@rheimann

rheimann/recessionboxplots

Created November 18, 2013 00:59
Show Gist options
  • Save rheimann/7520682 to your computer and use it in GitHub Desktop.
Save rheimann/7520682 to your computer and use it in GitHub Desktop.
Download ZIP
recessionboxplots R
Raw
recessionboxplots
BB.boxplot <- ggplot(BB.sentiment, aes(x=BB.sentiment$year, y=BB.sentiment$centered, group=BB.sentiment$year))
BB.boxplot <- BB.boxplot + geom_boxplot(outlier.colour = "black", outlier.shape = 16, outlier.size = 2)
BB.boxplot <- BB.boxplot + geom_rect(data=rect2001, aes(xmin=xmin, xmax=xmax, ymin=-Inf, ymax=+Inf), fill='pink', alpha=0.2, inherit.aes = FALSE)
BB.boxplot <- BB.boxplot + geom_rect(data=rect2007, aes(xmin=xmin, xmax=xmax, ymin=-Inf, ymax=+Inf), fill='pink', alpha=0.2, inherit.aes = FALSE)
BB.boxplot <- BB.boxplot + xlab("Year") + ylab("Sentiment (Centered)") + ggtitle("Economic Sentiment - Beige Book (1996-2010)")
BB.boxplot
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment