quantile(c(1, 2, 3, 4), seq(0, 1, length.out = 11))

ggplot(mpg, aes("", hwy)) +

geom_boxplot() +

coord_flip() +

scale_x_discrete("") +

ggtitle("Highway MPG")

ggplot(mpg, aes(reorder(class, -hwy, median), hwy)) +

geom_boxplot() +

coord_flip() +

scale_x_discrete("class") +

ggtitle("Highway MPG by Class")