symbol=list(col="black"))) png("NZ Elections 2005-2008 - PPM bias.png",width=600,height=600) plot(p) dev.off() #Biases by party and leader biases <- lapply(split(plot...
