library(vcd) mosaic( ~ Sex + Survived, data = titanic, main = "Mosaic plot for Titanic data: Gender vs. survival", shade = TRUE, split_vertical = TRUE, labeling_args = list( set_varnames = c( Survived = "Survived?") ) )