Aula 2 - Gráficos

Passo 1: Carregar a base de dados

load(“C:/Users/16989329793/Desktop/Base_de_dados-master/Titanic.RData”)

Passo 2: Olhar a base de dados

str(Titanic)

head(Titanic$Classe)

tail(Titanic$Classe)

Tripulação está escrito de forma errada

#Passo 3: Corrigir o problema

Titanic\(Classe = iconv(Titanic\)Classe, “latin1”, “UTF-8”)

#Passo 4: Verificar se o problema foi corrigido

str(Titanic)

head(Titanic$Classe)

tail(Titanic$Classe)

View(Titanic)

Problema resolvido!

Questões de pesquisa

Quantas pessoas sobreviveram?

Quantas pessoas da primeira classe?

Qual a proporção de mulheres no Titanic?

Variáveis de interesse

Sobreviveu, Classe e Sexo

Passo 5: Tabela de frequência

tabela_sobrevivencia = table(Titanic$Sobreviveu) tabela_sobrevivencia

tabela_classe = table(Titanic$Classe) tabela_classe

tabela_sexo = table(Titanic$Sexo) tabela_sexo

Passo 6: Proporções

round(prop.table(tabela_sobrevivencia)*100,2)

round(prop.table(tabela_classe)*100,2)

round(prop.table(tabela_sexo)*100,2)

Passo 7: Gráfico de pizza

pie(tabela_sobrevivencia)

cores = c(“wheat3”, “snow3”)

pie(tabela_sobrevivencia, col = cores, main = “Gráfico 1 - Sobrevivência do Titanic com as cores da Mangueira”)

colors()

cores2 = c(“yellowgreen”, “whitesmoke”, “violet”, “tomato3”)

pie(tabela_classe, col= cores2, main = “Gráfico 2 - Classe das pessoas do Titanic”)

cores3 = c(“#E3E2F0”, “#11101F”)

pie(tabela_sexo, col = cores3, main = “Gráfico 3 - Número de homens e mulheres”)

cores2 = c(“yellowgreen”, “whitesmoke”, “violet”, “tomato3”)

Passo 8: Gráfico de barras para variáveis ordinais

barplot(tabela_classe, col= cores2, main = “Gráfico 2 - Classe das pessoas do Titanic”)

Passo 9: Novo gráfico

prop.table(tabela_sexo)

library(waffle)

?waffle

fatias <- c(Feminino=21, Masculino=79) waffle(fatias)

waffle(fatias,colors = c(“royalblue”,“purple”))

Passo 10: Tabelas

library(flextable)

tabela_classe class(tabela_classe)

tabela_classe2 = data.frame(tabela_classe) class(tabela_classe2)

library(dplyr)

flextable(tabela_classe2) %>% theme_vader()

library(reactable)

reactable(tabela_classe2)

Conclusão

1 - Importante identificar o tipo de variável para fazer as estatísticas.

2 - Gráficos de pizza são feitos com o comando pie()

3 - Gráficos de barras são realizados com o comando barplot()

4 - O R é DEMAIS!