Navigation Menu

Skip to content

Instantly share code, notes, and snippets.

@gka

gka/contr-comm.r

Created February 13, 2012 11:25
Show Gist options
  • Star 2 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save gka/1816169 to your computer and use it in GitHub Desktop.
Save gka/1816169 to your computer and use it in GitHub Desktop.
Download ZIP
plots all contributions by authorized committees over time, colored by party
Raw
contr-comm.r
# you need to run https://gist.github.com/1816161 first
comm = subset(contr, form_tp=="SA18")
plot(comm$date, comm$contb_receipt_amt, log='y', col=comm$color, axes=F, xlab="", ylab="", main="Contributions by Authorized Committees (log scale)", cex=.65)
axis.POSIXct(1, las=2, at=seq(min(comm$date), as.POSIXct("2012/01/02"), by="month"), cex=0.65, cex.axis=0.65, format="%b")
options(scipen=10)
axis(2, at=c(0.01, 1, 100, 2500, 10000, 1000000), las=2, cex.axis=0.65)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment