# NOT RUN {
data(titanic)
ggplot(data = titanic) +
geom_mosaic(aes(x = product(Survived, Class), fill = Survived))
data(titanic)
ggplot(data = titanic) +
geom_mosaic(aes(x = product(Survived, Class), fill = Survived))
# }
Run the code above in your browser using DataLab