Tufte's Box Blot

p <- ggplot(mtcars, aes(factor(cyl), mpg))
## with only a point
p + geom_tufteboxplot()

## with a middle box
p + geom_tufteboxplot(median.type='box', fatten=1)

## using lines
p + geom_tufteboxplot(median.type='line')