Análise da quantidade de homens e mulheres presentes no Titanic

Este trabalho visa inserir um gráfico de pizza da quantidade de homens e mulheres presentes no navio no dia do naufrágio.

library(readxl)
sex <- read_excel("C:/Users/Alex/Desktop/Base_de_dados-master/titanic3.xls")

View(sex)

class(sex)
## [1] "tbl_df"     "tbl"        "data.frame"
names(sex)
##  [1] "pclass"    "survived"  "name"      "sex"       "age"       "sibsp"    
##  [7] "parch"     "ticket"    "fare"      "cabin"     "embarked"  "boat"     
## [13] "body"      "home.dest"
nomes <- c("pclass","survived","name","age","sibsp","parch","ticket","fare","cabin","embarked","boat","body","home.dest")

colnames(sex)<-nomes
names(sex)
##  [1] "pclass"    "survived"  "name"      "age"       "sibsp"     "parch"    
##  [7] "ticket"    "fare"      "cabin"     "embarked"  "boat"      "body"     
## [13] "home.dest" NA
class(sex$age)
## [1] "character"
sex$age <- as.factor(sex$age)
class(sex$age)
## [1] "factor"
table(sex$age)
## 
## female   male 
##    466    843
pie(table(sex$age),col = c("#e30e0e","#67c988"))

Foi possível observar que a quantidade de homens é bem superior a quantidade de mulheres, quase o dobro.