Base_Titanic = Titanic

Gráfico de Barras

freqs = table(Base_Titanic$Sexo,Base_Titanic$Classe)
barplot(freqs,legend = rownames(freqs))

O gráfico de barras acima faz a separação de toda a população do Titanic por meio do Sexo (Masculino e Feminino) e Classe (Tripulação, Primeira, Segunda e Terceira). É possível notar que a maior parte da população era composta por pessoas da tripulação. Logo em seguida, aparecem as pessoas da Terceira Classe, seguida de Primeira Classe e Segunda Classe. Também percebe-se que grande parte da população do navio é de homens.

Tabela de Contingência:

table(Base_Titanic$Sexo,Base_Titanic$Classe)
##            
##             Tripulação Primeira Segunda Terceira
##   Feminino          23      145     106      196
##   Masculino        862      179     179      510

Tabela de Proporções:

round(100*(table(Base_Titanic$Sexo,Base_Titanic$Classe)/nrow(Base_Titanic)),2)
##            
##             Tripulação Primeira Segunda Terceira
##   Feminino        1.05     6.59    4.82     8.91
##   Masculino      39.18     8.14    8.14    23.18

As tabelas de contingência e proporção corroboram o que foi dito logo após o gráfico de barras. A tripulação total do navio era de 885 pessoas, cerca de 40,23% da população do navio. Terceira, primeira e segunda classe contam com 706, 324 e 285 pessoas, respectivamente. As porcentagens são 32,09%, 14,73% e 12,96%, também levando em conta a mesma ordem anterior.