Carregar as bases de dados

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

A base de dados

library(DT)
datatable(CARROS)

Manipular e transformar as variáveis

CARROS$Tipodecombustivel <- ifelse(CARROS$Tipodecombustivel==0,"Gas","Alc")
CARROS$TipodeMarcha <- ifelse(CARROS$TipodeMarcha==0,"Auto","Manual")

Análise de variável quantitativa por qualitativa

Resumo numérico por grupo

library(dplyr)
library(knitr)

CARROS %>% group_by(Tipodecombustivel) %>% summarise(media_HP=mean(HP), desvio_padrao=sd(HP), tamanho=n()) %>% kable()
Tipodecombustivel media_HP desvio_padrao tamanho
Alc 91.35714 24.42447 14
Gas 189.72222 60.28150 18 
CARROS %>% group_by(Tipodecombustivel) %>% summarise(media_preco=mean(Preco), mediana=median(Preco), desvio_padrao=sd(Preco), tamanho=n()) %>% kable()
Tipodecombustivel media_preco mediana desvio_padrao tamanho
Alc 132.4571 120.55 56.89324 14
Gas 307.1500 311.00 106.76522 18 
CARROS %>% group_by(TipodeMarcha) %>% summarise(media_preco=mean(Preco), mediana=median(Preco), desvio_padrao=sd(Preco), tamanho=n()) %>% kable()
TipodeMarcha media_preco mediana desvio_padrao tamanho
Auto 290.3789 275.8 110.17165 19
Manual 143.5308 120.3 87.20399 13 
CARROS %>% group_by(Tipodecombustivel, TipodeMarcha) %>% summarise(media_preco=mean(Preco), desvio_padrao=sd(Preco), tamanho=n()) %>% kable()
Tipodecombustivel TipodeMarcha media_preco desvio_padrao tamanho
Alc Auto 175.1143 49.13072 7
Alc Manual 89.8000 18.80213 7
Gas Auto 357.6167 71.82349 12
Gas Manual 206.2167 95.23362 6

Visualização de dados

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

boxplot(CARROS$Preco~CARROS$TipodeMarcha, col=c("red","royalblue"))

Conclusão parcial

Carro a gasolina e carro automático são mais caros!