#data(bfi)
bi.bars(psychTools::bfi,"age","gender" ,ylab="Age",main="Age by males and females")
bi.bars(psychTools::bfi,"education","gender",xlab="Education",
main="Education by gender",horiz=FALSE)
Run the code above in your browser using DataLab