<- read.csv("NZ opinion polls 2006-2008 PPM.csv", na.strings="-") ppm$Date <- as.Date(ppm$Date) lppm <- melt(ppm[,-3], id.var=c("Poll", "Date"),...
ISOdate(2009,2,1)))) png("NZ_opinion_polls_2005-2008 -PPM.png",width=778,height=487,pointsize=16) par(mar=c(3,4,1,1)) matplot(polls$Date,polls[,parties],pch=NA...
ISOdate(2009,2,1)))) png("NZ_opinion_polls_2005-2008 -PPM.png",width=778,height=487,pointsize=16) par(mar=c(3,4,1,1)) matplot(polls$Date,polls[,leaders],pch=NA...