Gráfico de pizza sobre o sexo biológico dos passageiros do Titanic

O gráfico abaixo representa a quantidade de indivíduos do sexo masculino (male) e do sexo feminino (female) que estavam a bordo do Titanic, de acordo com a base de dados “titanic3”.

A parcela de ocupantes do sexo masculino aparece em azul e do sexo feminino, em vermelho.

library(readr)
titanic <- read_csv("arquivo/titanic3.csv")
## Parsed with column specification:
## cols(
##   pclass = col_double(),
##   survived = col_double(),
##   name = col_character(),
##   sex = col_character(),
##   age = col_double(),
##   sibsp = col_double(),
##   parch = col_double(),
##   ticket = col_character(),
##   fare = col_double(),
##   cabin = col_character(),
##   embarked = col_character(),
##   boat = col_character(),
##   body = col_double(),
##   home.dest = col_character()
## )
pie(table(titanic$sex),col = c("#f00a0a","#1339d1"))

Pelo gráfico, é possível notar que mais da metade dos passageiros do navio eram homens.