rpivotTableで遊ぶ

library(rpivotTable)

rpivotTable(Titanic, 
            rows = "Survived", cols =c("Class", "Sex"),
            aggregatorName = "Sum as Fraction of Columns",
            vals = "Freq", rendererName = "Table Barchart")