Aula 6

Carregar base de dados

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

Variância e desvio padrão

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

Corrigir os 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   Min.   :0.0000   
##  1st Qu.:3.080           1st Qu.:2.581   1st Qu.:16.89   1st Qu.:0.0000   
##  Median :3.695           Median :3.325   Median :17.71   Median :0.0000   
##  Mean   :3.597           Mean   :3.217   Mean   :17.85   Mean   :0.4375   
##  3rd Qu.:3.920           3rd Qu.:3.610   3rd Qu.:18.90   3rd Qu.:1.0000   
##  Max.   :4.930           Max.   :5.424   Max.   :22.90   Max.   :1.0000   
##   TipodeMarcha     NumdeMarchas   NumdeValvulas  
##  Min.   :0.0000   Min.   :3.000   Min.   :1.000  
##  1st Qu.:0.0000   1st Qu.:3.000   1st Qu.:2.000  
##  Median :0.0000   Median :4.000   Median :2.000  
##  Mean   :0.4062   Mean   :3.688   Mean   :2.812  
##  3rd Qu.:1.0000   3rd Qu.:4.000   3rd Qu.:4.000  
##  Max.   :1.0000   Max.   :5.000   Max.   :8.000

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

Tabelas

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)

CARROS %>% select(Preco,Tipodecombustivel) %>% group_by(Tipodecombustivel) %>%
  summarise(Média=round(mean(Preco),2)) %>% flextable()

Tipodecombustivel	Média
alc	132.46
gas	307.15

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

Tipodecombustivel	Média	Desvio_Padrao
alc	132.46	56.89
gas	307.15	106.77

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

Tipodecombustivel	Média	Desvio_Padrao	Mediana
alc	132.46	56.89	120.55
gas	307.15	106.77	311.00

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_tron()

TipodeMarcha	Média	Desvio_Padrao	Mediana
auto	17.15	3.83	17.3
manual	24.39	6.17	22.8

CARROS %>% select(HP,TipodeMarcha) %>%
  group_by(TipodeMarcha) %>% 
  summarise(Média=round(mean(HP),2),
            Desvio_Padrao=round(sd(HP),2),
            Mediana=median(HP)) %>% flextable() %>% theme_vader()

TipodeMarcha	Média	Desvio_Padrao	Mediana
auto	160.26	53.91	175
manual	126.85	84.06	109

Gráficos de caixas

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

TipodeMarcha	minimo	primeiro_quartil	mediana	terceiro_quartil	maximo
auto	10.4	14.95	17.3	19.2	24.4
manual	15.0	21.00	22.8	30.4	33.9

boxplot(Kmporlitro~TipodeMarcha, data = CARROS,
        col=c("purple","lightgreen"),
        horizontal = TRUE,
        main= "Gráfico 1 - km/l por tipo de marcha")

boxplot(Preco~Tipodecombustivel, data = CARROS,
        col=c("pink","brown"),
        horizontal = FALSE,
        main= "Gráfico 2 - preço por tipo de combustivel")

Aula 6

Lucio Viana Teixeira Meira

16/12/2021

Carregar base de dados

Variância e desvio padrão

Corrigir os dados

Tabelas

Gráficos de caixas