# 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")