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