Aula 04

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

#passo 2
str(CARROS)

## 'data.frame':    32 obs. of  11 variables:
##  $ Kmporlitro             : num  21 21 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 ...
##  $ Cilindros              : num  6 6 4 6 8 6 8 4 4 6 ...
##  $ Preco                  : num  160 160 108 258 360 ...
##  $ HP                     : num  110 110 93 110 175 105 245 62 95 123 ...
##  $ Amperagem_circ_eletrico: num  3.9 3.9 3.85 3.08 3.15 2.76 3.21 3.69 3.92 3.92 ...
##  $ Peso                   : num  2.62 2.88 2.32 3.21 3.44 ...
##  $ RPM                    : num  16.5 17 18.6 19.4 17 ...
##  $ Tipodecombustivel      : num  0 0 1 1 0 1 0 1 1 1 ...
##  $ TipodeMarcha           : num  1 1 1 0 0 0 0 0 0 0 ...
##  $ NumdeMarchas           : num  4 4 4 3 3 3 3 4 4 4 ...
##  $ NumdeValvulas          : num  4 4 1 1 2 1 4 2 2 4 ...
##  - attr(*, "variable.labels")= chr [1:11] "Km por litro" "Número de Cilindros" "Preço" "HP = Horse Power (potência do motor)" ...

#passo3
CARROS$Tipodecombustivel <-ifelse (CARROS$Tipodecombustivel==0, "gas", "alc")
CARROS$TipodeMarcha <-ifelse (CARROS$TipodeMarcha==0,"auto","manual")

#passo4
Tipodecombustivel <- table(CARROS$Tipodecombustivel)
prop.table(Tipodecombustivel)

## 
##    alc    gas 
## 0.4375 0.5625

pie(Tipodecombustivel)

barplot(Tipodecombustivel)

barplot(Tipodecombustivel,col=c("red","blue"),main = "Gráfico 1 - Tipo de combustível dos carros",
        horiz=T,
        legend.text = rownames(Tipodecombustivel),
        args.legend = list(x = "topleft"))

HISTOGRAMA

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

hist(CARROS$Kmporlitro,col="green",main="histograma",
     xlab="km/l do carro",ylab = "frequência")

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