data("laranja")
a=with(laranja, DBC(trat, bloco, resp,
mcomp = "sk",angle=45,sup = 10,
family = "serif",
ylab = "Number of fruits/plants"))
bar_graph2(a)
bar_graph2(a,fill="darkblue",point.color="orange",text.color='white')
Run the code above in your browser using DataLab