Estatística UNIRIO

Aula categórica vs quantitativa e quantitativa vs quantitativa

# local do arquivo
#https://github.com/DATAUNIRIO/Base_de_dados

# CARREGAR O BANCO DE DADOS
load("C:/Users/SEU_ENDERECO/Base_de_dados-master/Base_de_dados-master/CARROS.RData")

# MANIPULAR AS VARIÁVEIS
CARROS$TipodeMarcha<-as.factor(CARROS$TipodeMarcha)
CARROS$Tipodecombustivel<-as.factor(CARROS$Tipodecombustivel)
levels(CARROS$Tipodecombustivel) <- c('Gasolina','Álcool')
levels(CARROS$TipodeMarcha) <- c('Automático', 'Manual')

###############################################################
# QUALI vs QUALI
###############################################################

# GERAR A TABELA
tabela<-table(CARROS$Tipodecombustivel,CARROS$TipodeMarcha)
tabela

# GERAR O GRAFICO
barplot(tabela,
        col=c("red","blue"),
        main = "Tipo de Marcha por tipo de combustível",
        ylim = c(0,15),
        legend.text = rownames(tabela),
        beside=TRUE)

##########################################################
# VARIÁVEL QUALITATIVA Vs VARIÀVEL QUANTITATIVA
##########################################################

names(CARROS)
boxplot(CARROS$Kmporlitro~CARROS$TipodeMarcha,
        col=c("red","blue"),
        main="Km/l por tipo de marcha")

par(mfrow=c(1,2))
boxplot(CARROS$HP~CARROS$Tipodecombustivel,
        col=c("red","blue"),
        main="HP por tipo de combustível")
boxplot(CARROS$Preco~CARROS$Tipodecombustivel,
        col=c("green","yellow"),
        main="Preço por tipo de combustível")

par(mfrow=c(1,1))

library(psych)
describeBy(CARROS$Kmporlitro,
           CARROS$Tipodecombustivel,
           mat = TRUE)

describeBy(CARROS$Preco, CARROS$TipodeMarcha, mat = TRUE)

##########################################
# Subconjunto da base de dados
##########################################

CARROS_Gasolina <- subset(CARROS,
                          subset=Tipodecombustivel=='Gasolina')

#####################################################
# VARIÁVEL QUANTITATIVA Vs VARIÀVEL QUANTITATIVA
#####################################################

par(mfrow=c(1,1))
plot(CARROS$HP,CARROS$Preco,
     col="blue",pch=16,
     xlab = "Horse Power", ylab = "Preço do carro",
     main="Diagrama de dispersão \n do preço por HP")
abline(lm(CARROS$Preco~CARROS$HP),col="red")

plot(CARROS$Kmporlitro,CARROS$Preco,
     col="blue",pch=16,
     xlab = "Horse Power", ylab = "Preço do carro",
     main="Diagrama de dispersão \n do preço por HP")
abline(lm(CARROS$Preco~CARROS$Kmporlitro),col="red")


MC<-cor(CARROS[,c("HP","Preco","Kmporlitro","Peso","RPM")])
MC
library(corrplot)
corrplot(MC)