This package defines the function MosaicPlot that summarizes the conditional probabilities of co-occurrence of the categorical values in a Dataset object or a list of records of the same length.
data = Flatten@*List @@@ ExampleData[{"MachineLearning", "Titanic"}, "Data"];
MosaicPlot[data[[All, {1, 3, 4}]]]