Carregar as bases de dados

load("/Users/carol/Desktop/Materia de estatistica/Base_de_dados-master/CARROS.RData")
load("/Users/carol/Desktop/Materia de estatistica/Base_de_dados-master/salarios1.RData")

A base de dados

library(DT)
datatable(CARROS)

Manipular e transformar as variáveis

# Transformacao das variaveis
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 grupos

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),
            n=n()) %>% kable()
Tipodecombustivel media_preco mediana desvio_padrao n
Alc 132.4571 120.55 56.89324 14
Gas 307.1500 311.00 106.76522 18 
CARROS %>% group_by(Tipodecombustivel,TipodeMarcha) %>%
  summarise(media=mean(Preco),desvio_padrao=sd(Preco),
            n=n()) %>% kable()
Tipodecombustivel TipodeMarcha media desvio_padrao n
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)

boxplot(CARROS$Preco~CARROS$Tipodecombustivel,
        main='Gráfico 1- Boxplot do preço por tipo de combustível',
        col=c('pink','blue'),
        ylim=c(0,500),
        xlab='Tipo de combustível',
        ylab='Preço do carro')

boxplot(CARROS$Kmporlitro~CARROS$TipodeMarcha,
        col=c('pink','blue'))

boxplot(CARROS$Preco~CARROS$TipodeMarcha,
        col=c('pink','blue'))

Conclusão

Carro a gasolina e automaticos sao mais caros