names  mean
a        1
b        2
c        3
d        4

qplot(mean, data=test, geom="boxplot") + geom_jitter()

test <- data.frame(
  names = letters[1:4],
  mean = 1:4,
  x = "group")

qplot(x, mean, data = test, geom = "boxplot")