Passo 1 - Carregar as bases de dados

load("C:/Users/andre/Desktop/Unirio 2020.1/5f - Estatistica - Steven/Base_de_dados-master/CARROS.RData")
load("C:/Users/andre/Desktop/Unirio 2020.1/5f - Estatistica - Steven/Base_de_dados-master/salarios1.RData")

A base de dados

library(DT)
datatable(CARROS)

Manipular e trasnformar as variáveis

CARROS$Tipodecombustivel <- ifelse(CARROS$Tipodecombustivel==0,"Gasolina","Álcool")
CARROS$TipodeMarcha <- ifelse(CARROS$TipodeMarcha==0,"Automático","Manual")

Análise de variável quantitativa por qualitativa

Resumo numérico por grupos

# Resumo numérico por grupos

library(dplyr)
library(knitr)

CARROS %>% group_by(Tipodecombustivel) %>%
  summarise(media_HP=mean(HP),
            desvio_padrao=sd(HP),
            tamanho=n()) %>% kable() # cria tabela paginada e interativa
Tipodecombustivel media_HP desvio_padrao tamanho
Álcool 91.35714 24.42447 14
Gasolina 189.72222 60.28150 18 
CARROS %>% group_by(Tipodecombustivel) %>%
  summarise(media_preco=mean(Preco),
            desvio_padrao=sd(Preco),
            mediana=median(Preco),
            n=n())  %>% kable()
Tipodecombustivel media_preco desvio_padrao mediana n
Álcool 132.4571 56.89324 120.55 14
Gasolina 307.1500 106.76522 311.00 18 
CARROS %>% group_by(TipodeMarcha) %>%
  summarise(media_preco=mean(Preco),
            mediana=median(Preco),
            desvio_padrao=sd(Preco),
            n=n()) %>% kable()
TipodeMarcha media_preco mediana desvio_padrao n
Automático 290.3789 275.8 110.17165 19
Manual 143.5308 120.3 87.20399 13 
CARROS %>% group_by(Tipodecombustivel,TipodeMarcha) %>%
  summarise(media=mean(Preco),
            desvio_padrao=sd(Preco),
            tamanho_docarro=n())# tamanho do grupo
## # A tibble: 4 x 5
## # Groups:   Tipodecombustivel [2]
##   Tipodecombustivel TipodeMarcha media desvio_padrao tamanho_docarro
##   <chr>             <chr>        <dbl>         <dbl>           <int>
## 1 Álcool            Automático   175.           49.1               7
## 2 Álcool            Manual        89.8          18.8               7
## 3 Gasolina          Automático   358.           71.8              12
## 4 Gasolina          Manual       206.           95.2               6

Visualização de dados

boxplot(CARROS$Preco~CARROS$Tipodecombustivel,
        main="Gráfico 1 - Boxplot do Preço X Tipo de combustível",
        col= c("red","royalblue"),
        ylim=c(0,500),
        xlab = "Tipo de combustível",
        ylab = "Preço do carro")

boxplot(CARROS$Preco~CARROS$TipodeMarcha,
        main= "2º Gráfico - Tipo e marcha X Km/L",
        col= c("red","royalblue"),
        ylab = "Preço",
        xlab = "Tipo de marcha")

Conclusão

Carro a gasolina e carro automatico são mais caros!