Aula do dia 16/12

Carregar dados e transformar

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

summary(CARROS$Tipodecombustivel)

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

CARROS$Tipodecombustivel <- ifelse(CARROS$Tipodecombustivel==0,"gas","alc") 
                                   
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,"auto","manual")

Desvio-padrão

var(CARROS$Kmporlitro)

## [1] 36.3241

sd(CARROS$Kmporlitro)

## [1] 6.026948

mean(CARROS$Kmporlitro) 

## [1] 20.09062

Cruzamento de uma quali por uma 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)

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

CARROS %>% select(Kmporlitro,TipodeMarcha) %>%
  group_by(TipodeMarcha) %>%
  summarise(Média=round(mean(Kmporlitro),2),
            Mínimo=min(Kmporlitro),
            Primeiro_quartil=quantile(Kmporlitro,probs=0.25),
            Terceiro_quartil=quantile(Kmporlitro,probs=0.75),
            Máximo=max(Kmporlitro), 
            Desvio_Padrao=round(sd(Kmporlitro),2),
            Mediana=median(Kmporlitro)) %>% flextable() %>% theme_box()

Boxplot

boxplot(Preco~Tipodecombustivel, data = CARROS, col= c("pink","dark green"),
          main="Boxplot do preço por tipo de combustível", horizontal=F)   

  boxplot(Kmporlitro~TipodeMarcha, data = CARROS, col= c("purple","dark blue"),
          main="Boxplot do Km/L por tipo de marcha", horizontal=T)