Clique no Pikachu para uma experiência imersiva! (explore os Easter Eggs)

library(readr)
titanic3 <- read_csv("C:/Users/Conteck - 3/Desktop/Mestrado UFF/Estatistica - Steven/R/Base_de_dados-master/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()
## )
View(titanic3)

class(titanic3$sex)
## [1] "character"
titanic3$sex <- as.factor(titanic3$sex)

class(titanic3$sex)
## [1] "factor"
table(titanic3$sex)
## 
## female   male 
##    466    843
pie(table(titanic3$sex))