plots all contributions by authorized committees over time, colored by party
| # 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