
# Chapter 4: Making Comparisons
library(poliscidata)  # Loads R companion package in session
# LINE CHARTS
# You first need to transform the DV.
nes$envir = as.numeric(nes$envjob_3=="Envir")
nes$envir = 100*nes$envir
plotmeansC(nes, ~envir, ~pid_3, envir~pid_3, w=~wt,
           xlab="Party Identification", 
           ylab="Percent Pro-Environment",
           main="Percentage Favoring Environment over Jobs,\n by Party Identification")| 31 | 

