cleanup.R

library(plyr)
library(dplyr)
donors = read.csv("donors.csv", header=TRUE, stringsAsFactors=FALSE,
                  na.strings=c("", " "))
names(donors) = tolower(names(donors))
library(lubridate)
donors$donation_time = parse_date_time(donors$donation_time,
                                       orders=c("ymdhms", "mdyImsp"),
                                       tz="America/Chicago")
donors[which.min(donors$donation_time), "donation_time"] = as.POSIXct("2014/05/01 00:00", tz="America/Chicago")
donors = rename(donors, replace=c("x"="zip"))
is_zip = grepl("\\d{5}", donors$zip)
donors$zip[!is_zip] = NA
donors$targeting = revalue(donors$targeting,
                           c("Jim Rubens/NH-Sen/R-Pri"="Republicans Only",
                             "Only Democrats"="Democrats Only",
                             "Staci Appel/IA-Whatever Helps3"="Whatever Helps"))
donors$targeting = as.factor(donors$targeting)