# NOT RUN {
if (require(car)){
data(Mroz)
with(Mroz, {
Barplot(wc)
Barplot(wc, col="lightblue")
Barplot(wc, by=hc)
Barplot(wc, by=hc, scale="percent")
Barplot(wc, by=hc, style="parallel",
scale="percent", legend.pos="center")
})
}
# }
Run the code above in your browser using DataLab