Tabela cruzada (duas variáveis qualitativas)

Abaixo pode-se ver a tabela comparando a sobrevivência das pessoas à sua classe dentro do navio. É possível analisar que proporcionalmente, pessoas da primeira classe morreram menos que pessoas da segunda classe, que por sua vez, morreram menos que pessoas da terceira classe.

load("C:/Users/Pedro/Desktop/the_powerful_chief/Base_de_dados-master/Titanic.RData")
table(Titanic$Classe,Titanic$Sobreviveu)
##             
##              Não sobreviveu Sobreviveu
##   Tripulação            673        212
##   Primeira              122        202
##   Segunda               167        118
##   Terceira              528        178
tabela1<-prop.table(table(Titanic$Classe,Titanic$Sobreviveu),1)*100
prop.table(tabela1)*100
##             
##              Não sobreviveu Sobreviveu
##   Tripulação      19.011299   5.988701
##   Primeira         9.413580  15.586420
##   Segunda         14.649123  10.350877
##   Terceira        18.696884   6.303116