variaveis qualitativas e quantitativas

tabelas, desvio padao e boxplot

#transformaçao dos dados

load("~/Base_de_dados-master/Base_de_dados-master/CARROS.RData")

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

##    Length     Class      Mode 
##        32 character character

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

##    Length     Class      Mode 
##        32 character character

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)

#desvio padrao

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

#tabela qualitativa x quantitativa

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),
            Desvio_Padrao=round(sd(Kmporlitro),2),
            Mediana=median(Kmporlitro)) %>% flextable() %>% theme_vader()

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 visulizaçao d atabela min 1 quartil mediana 3 quartil e maximo

boxplot(Kmporlitro~TipodeMarcha, data = CARROS,
        col=c("red","navy"), main="grafico de km/l e tipo de marcha" )

boxplot(Preco~Tipodecombustivel, data = CARROS,
        col=c("red","yellow"), main="grafico de preço e tipo de combusticel",
        horizontal=F)