nss plot

library(ggplot2)

# data
means <- c(.92, .88, .95)


lower <- c(.90, .86, .94)

upper <- c(.93, .90, .96)

index <- c('Dept1', 'Dept2', 'Dept3')

nss.data <- data.frame(index, means, lower, upper)

# creaing the plot
nss.plot1 <- ggplot(nss.data, aes(x=index, y=means)) +
  geom_errorbar(width=.1, aes(ymin=lower, ymax=upper)) +
  geom_point(shape=21, size=3, fill="white") + ylab('NSS') + xlab('Department')

nss.plot1