#####
#####
###     Creating Figure 3
#####
#####

library(lattice)

#####
#####
###     Requires data file called "regions.txt"
#####
#####

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

regions$sequence <- seq(1, length(regions$priority))

regions$state <- reorder(regions$state, regions$sequence)

dotplot(state ~ priority, data = regions,
   aspect = 1.5,
   xlab = "State policy priority scores, 1992",
   xlim = c(.49, .55),
   scales = list(cex = .6),
   panel = function (x, y) {
   panel.dotplot(x[x > 0], y[x > 0],
     pch = 16, col = "black", lty = 2)} )