#####
#####
###     Creating Figure 1, a basic dot plot of
###     1992 state policy priorities
#####
#####

library(lattice)

#####
#####
###     Requires data file:
###     "ideal points with regions and names, 1992.txt"
#####
#####

policy <- read.table(file.choose(), header = T)

colnames(policy)

policy$state <- reorder(policy$state, policy$priority)

dotplot(state ~ priority, data = policy,
   aspect = 1.5,
   xlab = "State policy priority scores, 1992",
   scales = list(cex = .6),
   panel = function (x, y) {
   panel.abline(h = as.numeric(y), col = "gray", lty = 2)
   panel.xyplot(x, as.numeric(y), col = "black", pch = 16)})