data("laranja")
a=with(laranja, DBC(trat, bloco, resp,
mcomp = "sk",angle=45,
ylab = "Number of fruits/plants"))
sk_graph(a,horiz = FALSE)
library(ggplot2)
sk_graph(a,horiz = TRUE)+scale_fill_grey(start=1,end=0.5)
Run the code above in your browser using DataLab