View(Titanic)
head(Titanic$Classe)
tail(Titanic$Classe)
Titanic$Classe = iconv(Titanic$Classe, "latin1", "UTF-8")
str(Titanic)
tail(Titanic$Classe)
tabela_classe = table(Titanic$Classe)
tabela_classe
prop.table(tabela_classe)
round(prop.table(tabela_classe)*100, 2)
barplot(tabela_classe)
barplot(tabela_classe, col = c("thistle1", "tan1", "turquoise1", "violet"),
main = "Gráfico 4 - Classe com cores em barra")