# NOT RUN {
cushion(as.factor(mtcars$cyl))
cushion(mtcars$cyl)
cushion(mtcars$cyl, .5)
# }
# NOT RUN {
ggplot(reorder_by(cyl, ~-cyl , mtcars, length), aes(x=as.factor(cyl))) +
geom_bar() +
theme_apa() +
y0(cushion(as.factor(mtcars$cyl))) +
xlab("Cylinders") +
ylab("Total")
# }
Run the code above in your browser using DataLab