plots all contributions over time, colored by party
| # load csv | |
| contr <- read.csv("fec-contr.csv") | |
| # convert date column to R date type | |
| contr$date <- strptime(as.character(contr$contb_receipt_dt), "%Y-%m-%dT%H:%M:%SZ") | |
| plot(date,contb_receipt_amt,axes=F,col=color,cex=.7,ylab="",xlab="",main="Contributions in 2011") | |
| # add time axis | |
| axis(2, las=2, cex.axis=0.65) | |
| axis.POSIXct(1, las=2, at=seq(as.Date("2011/1/1"), as.Date("2012/01/01"), by="month"), cex=0.65, cex.axis=0.65, format="%b") | |
| # add labels for biggest contribution | |
| m = subset(contr, contb_receipt_amt > 250000) | |
| text(m$date, m$contb_receipt_amt, m$contbr_nm, cex=.65, pos=2) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment