# Chapter 4: Making Comparisons
library(poliscidata)  # Loads R companion package in session

# STRIP CHARTS

cat("Mean Comparison Table:\n")
compmeans(states$union10, states$region, plot=F)

stripchart(union10 ~ region, data=states,
           xlab="Region", ylab="Percent Unionized", 
           main="Unionization, by Region",
           vertical=TRUE, 
           method="jitter", 
           font.main=1)