#Instalando a base de dados#
install.packages(“usethis”) usethis::use_course(“https://github.com/DATAUNIRIO/Base_de_dados/archive/master”)
install.packages(“ggpubr”)
install.packages(“flextable”)
install.packages(“ggthemes”)
library(forcats) library(ggplot2) library(ggpubr) library(flextable) library(ggthemes) library(dplyr)
#Corrigindo a base de dados#
Titanic\(Classe = iconv(Titanic\)Classe, “latin1”, “UTF-8”)
#Questão 2#
tabela_sobrevivencia = table(Titanic$Sobreviveu) tabela_sobrevivencia
#Questão 3# round(prop.table(tabela_sobrevivencia)*100,2)
#Questão 4#
tabela_sexo = table(Titanic$Sexo) tabela_sexo
#Questão 5#
tabela_sobrevivencia = table(Titanic$Idade) tabela_sobrevivencia
#Questão 6#
tabela_sobrevivencia = table(Titanic$Classe) tabela_sobrevivencia
#Questão 7#
total_Femininos = sum(Titanic\(Sexo == "Feminino") Feminino_sobreviceu = sum(Titanic\)Sobreviveu[Titanic$Sexo == “Feminino”] == 1) porcentagem_feminino_sobreviveu = (Feminino_sobreviceu / total_Femininos) * 100 porcentagem_feminino_sobreviveu
#Questão 8#
total_criancas = sum(Titanic\(Sexo == "Criancas") Criancas_sobreviveu <- sum(Titanic\)Sobreviveu[Titanic$Idade == “Criancas”] == 1) porcentagem_criancas_sobreviveu <- (Criancas_sobreviveu / total_criancas) * 100 porcentagem_criancas_sobreviveu
#Questão 9#
total_terceira = sum(Titanic\(Classe == "Terceira") Terceira_sobreviveu <- sum(Titanic\)Sobreviveu[Titanic$Classe == “Terceira”] == 1) porcentagem_terceira_sobreviveu <- (Terceira_sobreviveu / total_terceira) * 100 porcentagem_terceira_sobreviveu
#Questão 10#
#Questão 11#
tabebela_sobrevivencia <- table(Titanic$Sobreviveu, useNA = “no”) pie(tabela_sobrevivencia, main = “Gráfico 1 - Sobreviventes Titanic”, col = c(“yellow”, “orange” , “red” , “darkred”))
#Questão 12#
tabela_sexo <- table(Titanic\(Sexo, Titanic\)Sobreviveu) pie(tabela_sexo[, 2], labels = rownames(tabela_sexo), main = “Gráfico 2 - Sobreviventes Titanic por Sexo”, col = c(“lightyellow”, “lightgreen”))
#Último Desafio#
tabela = table(Titanic\(Classe, Titanic\)Sobreviveu) tabela = as.data.frame(tabela)
ggballoonplot(tabela, fill = “Freq”) + ggtitle(“Sobreviventes do Titanic”)
mosaicplot(table(Titanic\(Classe,Titanic\)Sobreviveu), main = “Sobreviventes do Titanic”, color = c(“lightblue”,“darkgreen”))
#Questão 13#
tabela_sobrevivencia
class(tabela_sobrevivencia)
tabela_sobrevivencia2 = data.frame(tabela_sobrevivencia)
class(tabela_sobrevivencia2)
tabela_sobrevivencia <- as.data.frame(tabela_sobrevivencia)
library(dplyr)
flextable(tabela_sobrevivencia) %>% theme_vader()
#Questão 14#
#Questão 15#