Objetivos:
1 - Construir o histograma
2 - Interpretar o histograma
load ("C:/Users/victo/Desktop/Base_de_dados-master/CARROS.RData")
hist(CARROS$Kmporlitro)
#para colocar cor
hist(CARROS$Kmporlitro, col = "red")
#para colocar título
hist(CARROS$Kmporlitro, col = "blue", main = "Meu primeiro histograma")
Aqui vou mexer nos rótulos e título
Observações 1. O Km/l é assimétrico
2. Muitos carros com preço até 200 mil reais
3. O HP tem uma alta assimetria a direita
4. O carro mais caro da base de dados custa 472 mil
5. O HP mediano é 123 cavalos
6. carros em 250 e 350 cavalos são menos ferquentes
#para mudar nomes de x e y
hist(CARROS$Kmporlitro, col = c("red", "red", "red", "blue", "blue"),
main = "Gráfico - Histograma do Km/l",
xlab = "Km/l", ylab = "Frequencia")
hist(CARROS$Preco, col = "blue", main = "Gráfico 2 - Histograma de Preço")
summary(CARROS$Preco)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 71.1 120.8 196.3 230.7 326.0 472.0
#assimétrico a direita, pois concentra-se na esquerda
hist(CARROS$HP, col = "royalblue", main = "Gráfico 3 - Histograma de HP")
#BOX PLOT mostra os 5 números: mín, 1Q, mediana, 3Q e máx
#permite ver o outilier
#permite ver se é simétrico
#permite ver os 5 valores
boxplot(CARROS$Kmporlitro)
#levemente assimétrico
boxplot(CARROS$Kmporlitro, col = "green", main = "Gráfico 3 - Boxplot do Km/l")
boxplot(CARROS$Preco, col = "green", main = "Gráfico 4 - Boxplot de Preço")
boxplot(CARROS$HP, col ="skyblue", main = "Gáfico 5 - Boxplot de HP")
Observações:
1. O km/l é levemente simétrico
2. O preço não tem outliers
3. O HP tem outiliers