titanic_dataset

Slide With Code

t <- as.data.frame(Titanic)

Slide With Plot

library("ggplot2")
qplot(data=t,weight=Freq,x=Class)

plot of chunk unnamed-chunk-2

Slide With Plot 2

library("ggplot2")
qplot(data=t,weight=Freq,x=Class,col=Survived)

plot of chunk unnamed-chunk-3

Slide With Plot

library("ggplot2")
qplot(data=t,weight=Freq,x=Class,fill=Survived)

plot of chunk unnamed-chunk-4

Slide With Plot

library("ggplot2")
qplot(data=t,weight=Freq,x=Sex,fill=Survived)+facet_grid(Age~Class)

plot of chunk unnamed-chunk-5

Slide With Plot

library("ggplot2")
qplot(data=t,weight=Freq,x=Sex,fill=Survived)+facet_grid(Age~Class,scale="free_y")

plot of chunk unnamed-chunk-6