legends1

legends1.r

toInstall <- c("ggplot2", "reshape")
if(doInstall){install.packages(toInstall, repos = "http://cran.r-project.org")}
lapply(toInstall, library, character.only = TRUE)
library(ggplot2)
library(reshape)

ANES <- read.csv("http://www.oberlin.edu/faculty/cdesante/assets/downloads/ANES.csv")
party.and.region <- ANES[,c(1, 12, 16)]
party.and.region.year <- melt(party.and.region, id=c("year", "south"), na.rm=TRUE)
party.region.time  <- (cast(party.and.region.year, year+south~variable, mean, na.rm=T) )


P0 <- ggplot(data = party.region.time
             ) + geom_point(aes(x = year,
             y = pid7,
             size=(1),
             colour=as.factor(south),
             shape=factor(south)))  +theme_bw()

P0