Aula04

Carregar os dados

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

Corrigir os dados

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

Montar o gráfico com legenda

tabela<-table(CARROS$Tipodecombustivel)
barplot(tabela)

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

# Adicionar o percentual no gráfico

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")

# Resumo dos dados

summary(CARROS)

##    Kmporlitro      Cilindros         Preco             HP       
##  Min.   :10.40   Min.   :4.000   Min.   : 71.1   Min.   : 52.0  
##  1st Qu.:15.43   1st Qu.:4.000   1st Qu.:120.8   1st Qu.: 96.5  
##  Median :19.20   Median :6.000   Median :196.3   Median :123.0  
##  Mean   :20.09   Mean   :6.188   Mean   :230.7   Mean   :146.7  
##  3rd Qu.:22.80   3rd Qu.:8.000   3rd Qu.:326.0   3rd Qu.:180.0  
##  Max.   :33.90   Max.   :8.000   Max.   :472.0   Max.   :335.0  
##  Amperagem_circ_eletrico      Peso            RPM        Tipodecombustivel 
##  Min.   :2.760           Min.   :1.513   Min.   :14.50   Length:32         
##  1st Qu.:3.080           1st Qu.:2.581   1st Qu.:16.89   Class :character  
##  Median :3.695           Median :3.325   Median :17.71   Mode  :character  
##  Mean   :3.597           Mean   :3.217   Mean   :17.85                     
##  3rd Qu.:3.920           3rd Qu.:3.610   3rd Qu.:18.90                     
##  Max.   :4.930           Max.   :5.424   Max.   :22.90                     
##  TipodeMarcha        NumdeMarchas   NumdeValvulas  
##  Length:32          Min.   :3.000   Min.   :1.000  
##  Class :character   1st Qu.:3.000   1st Qu.:2.000  
##  Mode  :character   Median :4.000   Median :2.000  
##                     Mean   :3.688   Mean   :2.812  
##                     3rd Qu.:4.000   3rd Qu.:4.000  
##                     Max.   :5.000   Max.   :8.000

Montar Histogramas

hist(CARROS$Preco)

hist(CARROS$Preco,col = "royalblue",main = "Gráfico 2 - Histograma do preço dos carros",
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")