Carregar

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

library(readxl)
Familias <- read_excel("C:/Users/sandr/Desktop/Base_de_dados-master/Familias.xls", 
                       sheet = "Dados da pesquisa")

Corrigir

CARROS$Tipodecombustivel <- ifelse(CARROS$Tipodecombustivel==0,"Gas","Alc")
CARROS$TipodeMarcha <- ifelse(CARROS$TipodeMarcha==0,"Auto","Manual")

Tabelas

tabela_comb <- table(CARROS$Tipodecombustivel)
tabela_comb
## 
## Alc Gas 
##  14  18
prop.table(tabela_comb)*100
## 
##   Alc   Gas 
## 43.75 56.25

Gráficos

pie(tabela_comb)

barplot(tabela_comb)

grafico <- barplot(tabela_comb, col = c("red","blue"), main = "Gráfico 1 - Tipo de combustível",
                   horiz=T,
                   legend.text = row.names(tabela_comb),
                   args.legend = list(x = "topleft"))

grafico <- barplot(table(CARROS$Tipodecombustivel),col = "red")
percentual <- prop.table(table(CARROS$Tipodecombustivel))*100
percentual
## 
##   Alc   Gas 
## 43.75 56.25
rotulo <- paste0(percentual,"%")
rotulo
## [1] "43.75%" "56.25%"
text(grafico, 0, rotulo,cex=1,pos=3,col = "white")

Histogramas

hist(CARROS$Preco)

hist(CARROS$Preco,col = "royalblue", main = "Gráfico 2 - Histograma do preço do carro")

hist(CARROS$Preco,col = "royalblue", main = "Gráfico 2 - Histograma do preço do carro", xlab = "Preço do carro", ylab = "Frequência")

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

hist(CARROS$HP, col = "tomato3",main =  "Histograma",xlab = "HP do carro", ylab = "Frequência" )

hist(CARROS$HP, col = "tomato3",main =  "Histograma",xlab = "HP do carro",labels = TRUE, ylab = "Frequência" )

hist(CARROS$HP, col = "tomato3",border = "blue", main =  "Histograma",xlab = "HP do carro",labels = TRUE, ylab = "Frequência" )

Conclusão

Temos 56% de carro a gasolina e 43% a álcool na base de dados.

As variáveis quantitativas são assimétricas.