Difference between revisions of "File:Ohio Election Results Nov 2012.csv"

library(OpasnetUtils)
library(xtable)
library(ggplot2)
library(reshape2)

#Fetch the election data from Ohio

data <- opasnet.csv("d/df/Ohio_Election_Results_Nov_2012.csv", sep = ",", skip = 3)
datacol <- t(opasnet.csv("d/df/Ohio_Election_Results_Nov_2012.csv", sep = ",", skip = 2, nrow = 1))[ , 1]
colnames(data) <- datacol
data <- data[data["Media Market"] != "TOTALS:", ] # Remove the total row

# Elections contains the names of different elections held at the same time.

elections <- t(opasnet.csv("d/df/Ohio_Election_Results_Nov_2012.csv", sep = ",", skip = 1, nrow = 1))[ , 1]

# Copy elections to subsequent rows until a new election begins.
temp <- ""
for(i in 1:length(elections)) {
	elections[i] <- ifelse(is.na(elections[i]), temp, elections[i])
	temp <- elections[i]
}

# Melt data into long format.

data <- melt(data, id.vars = c("County", "Region", "Media Market", "REGISTERED_VOTERS"), variable.name = "Candidate", value.name = "Result", na.rm = TRUE)

# Bring in the elections.
data <- merge(data, data.frame(Candidate = datacol, Election = elections))

election.ohio.2012 <- new("ovariable",
	name = "election.ohio.2012",
	data = data
)

objects.put(election.ohio.2012)

cat("Object election.ohio.2012 saved successfully. \n")