titanic = read.table("Titanic.txt",header=T,sep=" ")
names(titanic)
t1 = table(titanic$Class)
t1
pt1 = prop.table(t1)
pt1
barplot(t1)
barplot(pt1,xlab="Class",ylab="Proportion",main="Ticket class of Titanic passengers")
pie(t1)

t2 = table(titanic$Class,titanic$Survival)
t2
prop.table(t2)
prop.table(t2,1)
prop.table(t2,2)
barplot(prop.table(t2,2),ylim=c(0,1.4),legend.text=T,xlab="Survival",ylab="Proportion")

t3 = table(titanic$Survival,titanic$Class)
prop.table(t3,2)
barplot(prop.table(t3,2),ylim=c(0,1.2),legend.text=T,xlab="Class",ylab="Proportion")
barplot(prop.table(t3,2),ylim=c(0,1),beside=T,legend.text=T,xlab="Class",ylab="Proportion")