Variáveis qualitativas e quantitativvas

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

Transformação dos dados

CARROS$Tipodecombustivel <-ifelse(CARROS$Tipodecombustivel== 0,"gas", "alc")
summary(CARROS$Tipodecombustivel)

##    Length     Class      Mode 
##        32 character character

summary(CARROS$TipodeMarcha)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##  0.0000  0.0000  0.0000  0.4062  1.0000  1.0000

CARROS$TipodeMarcha <- ifelse(CARROS$TipodeMarcha== 0, "Manual","auto")

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

Tabela Quali vs Quanti

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)

# preço (qualitativa) por tipo de combustível

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

#--------------------------------------------------------

#Km/l por tipo de marcha
  
  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() 

Boxplot

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

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