pe <- c(2.48, 1.56, 2.97)

y.axis <- c(1:3)

par(mar=c(4, 6, 2, 0))

plot(rev(pe), y.axis, type="p", axes=F, pch=19, xlim=c(1,4), ylim=c(1,3), cex=1.3, xlab="", ylab="")

title(main="Negative Stereotype Disagreement > 3")

lower <- c(2.26, 1.17, 2.64)
upper <- c(2.70, 1.94, 3.28)
segments(rev(lower), y.axis, rev(upper), y.axis, lwd=1.3)

axis(1, at=seq(1,4,by=1))

names <- c("Baseline", "Black\nFamily", "Affirmative\nAction")
axis(2, at=y.axis, label=rev(names), las=2)