Transformação dos dados

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



var(CARROS$Kmporlitro)
## [1] 36.3241
sd(CARROS$Kmporlitro)
## [1] 6.026948
var(CARROS$Preco)
## [1] 15360.8
sd(CARROS$Preco)
## [1] 123.9387
var(CARROS$HP)
## [1] 4700.867
sd(CARROS$HP)
## [1] 68.56287
mean(CARROS$HP)
## [1] 146.6875
# Passo 1 - transformar

CARROS$Tipodecombustivel<- ifelse(CARROS$Tipodecombustivel==0, "Gas","Alc")
CARROS$TipodeMarcha<- ifelse(CARROS$TipodeMarcha==0,"auto","manual")

cruzamento de uma qualitativa por quantitativa

# Passo 2 - Cruzamento de uma quali por quant 

library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(flextable)
library(reactable)



CARROS %>% select(Preco,Tipodecombustivel) %>%
  group_by(Tipodecombustivel) %>% 
  summarise(Média=round(mean(Preco),2),
            Desvio_Padrao=round(sd(Preco),2),
            Mediana=median(Preco)) %>% reactable()

caroo a gasolina é mais caro que carro a alcool

km/l (quantitativa ) por tipo de marcha (qualitativa)

CARROS %>% select(Kmporlitro,TipodeMarcha) %>%
  group_by(TipodeMarcha) %>% 
  summarise(Média=round(mean(Kmporlitro),2),
            Desvio_Padrao=round(sd(Kmporlitro),2))%>% flextable()%>% theme_tron()
CARROS %>% select(HP,TipodeMarcha) %>%
  group_by(TipodeMarcha) %>% 
  summarise(Média=round(mean(HP),2),
            Desvio_Padrao=round(sd(HP),2))%>% flextable()%>% theme_vanilla()
#-------------------------------------------


CARROS %>% select(Kmporlitro,TipodeMarcha) %>%
  group_by(TipodeMarcha) %>%
  summarise(minimo=min(Kmporlitro),
            primeiro_quartil=quantile(Kmporlitro,probs=0.25),
            mediana=median(Kmporlitro),
            terceiro_quartil=quantile(Kmporlitro,probs=0.75),
            maximo=max(Kmporlitro)) %>%
  flextable() %>% theme_tron()

Gerar uma visualização dessa tabela

(min, 1 quartil, mediana, 3 quartil e maximo)

boxplot(Kmporlitro~TipodeMarcha, data=CARROS,
        col=c("red","royalblue"),
        horizontal =T,
        main="Gráfico 1 - Boxplot do km/l por tipo de marcha")

boxplot(Preco~Tipodecombustivel, data=CARROS,
        col=c("red","royalblue"),
        horizontal =F,main="Gráfico 2 - Boxplot do preço por tipo de combustivel")