aula_3_Eng.R

# Como fazer uma tabela da coluna B com a categoria A selecionada da coluna C

# passo 1 - carregar a base de dados
load("C:/Users/Hp/Desktop/Base_de_dados-master/Titanic.RData")

# passo 2 - grafico de pizza - programação classica
pie(table(Titanic$Sobreviveu),col=c("red","blue"))

# passo 3 - grafico de  pizza com o pipe
library(dplyr)
Titanic %>% select(Sobreviveu) %>% table() %>% pie(col=c("purple","orange"))

# Quantos homens sobreviveram?
Titanic %>% 
  filter(Sexo=="Masculino") %>% 
  select(Sobreviveu) %>%
  table() %>%
  pie(col=c("lightyellow","darkblue"))

# como colocar percentual na pizza?

contagem <- table(Titanic$Sobreviveu)
contagem          
nomes <- levels(Titanic$Sobreviveu)
nomes
porcentagem <- round(contagem/sum(contagem)*100,3)
porcentagem

rotulo <- paste0(nomes," (",porcentagem,"%",")")
rotulo

# Construindo a pizza - pelo rbase
pie(table(Titanic$Sobreviveu),labels=rotulo)

# Construindo a pizza - pelo pipe
Titanic %>% 
  select(Sobreviveu) %>%
  table() %>% 
  pie(labels=rotulo,col=c("red","yellow"))

library(waffle)
parte <- c(Não=68, Sim=32)
waffle(parte, rows=10,colors=c("red","blue"))

#----------------------------------------------------
# gráfico para variável quantitativa discreta
#----------------------------------------------------

library(readr)
Familias2 <- read_delim("C:/Users/Hp/Desktop/Base_de_dados-master/Familias2.csv", 
                        delim = ";", escape_double = FALSE, locale = locale(encoding = "WINDOWS-1252"), 
                        trim_ws = TRUE)

stripchart(Familias2$tam, method = "stack", offset = .5, at = .15)

library(ggplot2)
ggplot(Familias2, aes(x = tam)) +
  geom_dotplot()

table(Familias2$tam)

#----------------------------------------------------
# gráfico para variável quantitativa cont
#----------------------------------------------------

load("C:/Users/Hp/Desktop/Base_de_dados-master/CARROS.RData")

par(mfrow=c(1,2))
hist(CARROS$Kmporlitro)
barplot(table(Titanic$Sobreviveu),col=c("red","blue"))

par(mfrow=c(1,1))

hist(CARROS$Kmporlitro,
     col = c("skyblue","skyblue","skyblue","red","red"),
     main="Histograma do Km/l",
     ylab = "Frequência",
     xlab = "Km/l")

hist(CARROS$Preco,
     col = c("red"),
     main="Histograma do Preço do carro",
     ylab = "Frequência",
     xlab = "Preço")

??hist

hist(CARROS$Preco,
     #breaks = 20,
     col = c("royalblue"),
     main="Histograma do Preço do carro",
     ylab = "Frequência",
     xlab = "Preço",
     labels = TRUE)

# Histograma do HP 

par(bg="lightyellow")
hist(CARROS$HP,
     col = c("purple"),
     main="Histograma do Hp (cavalos no motor)",
     ylab = "Frequência",
     xlab = "HP",
     labels = TRUE)
par(bg="white")

summary(CARROS$HP)
summary(CARROS$Preco)
summary(CARROS$Kmporlitro)