cast6

ggd1g6.r

head(ANES)
party.and.region <- ANES[,c(1, 12, 16)]
head(party.and.region)
   #Note the additional changes to our id=():
party.and.region.year <- melt(party.and.region, id=c("year", "south"), na.rm=TRUE)
head(party.and.region.year)
   #Note the additional changes to our formula (below):
party.region.time  <- (cast(party.and.region.year, year+south~variable, 
                             mean, na.rm=T) )
party.region.time
dim(party.region.time)
P2 <- ggplot(data = party.region.time) + geom_point(aes(x = year,
                  y = pid7, colour=as.factor(south)))
P2 <-  P2  + ylim(0,6) + labs(title="geom_point, P2")