plots all contributions by authorized committees over time, colored by party

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)