plots all contributions over time, colored by party

contr-all.r

# 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)