ggplot2 e GLM binomial

Modelos Lineares Generalizados em R

Richard Erickson

Instructor

O que posso ver nos meus dados?

A distância do trajeto muda a probabilidade de pegar o ônibus?

ggplot(bus, aes(x = MilesOneWay, y = Bus)) + geom_point()

Gráfico só com pontos

Modelos Lineares Generalizados em R

geom_jitter()

gg_jitter <- ggplot(bus, aes(x = MilesOneWay, y = Bus)) +
             geom_jitter(width = 0, height = 0.05)
print(gg_jitter)

Gráfico com jitter

Modelos Lineares Generalizados em R

geom_smooth()

gg_jitter + geom_smooth()

Gráfico anterior com geom suavizado.

Modelos Lineares Generalizados em R

fator para numérico

str(bus)
bus$Bus2 <- as.numeric(bus$Bus) - 1
Modelos Lineares Generalizados em R

geom_smooth()

gg_jitter + geom_smooth()

Mude os dados para numéricos em vez de caracteres

Modelos Lineares Generalizados em R

modelos lineares

gg_jitter + geom_smooth(method = 'glm')

Adicionar lm ao ggJitter

Modelos Lineares Generalizados em R

Regressões logísticas

ggJitter + 
geom_smooth(method = 'glm',
            method.args = list(family = "binomial"))

ggJitter com curva logística

Modelos Lineares Generalizados em R
gg_jitter + 
    geom_smooth(method = 'glm',
                method.args = list(family = binomial(link = 'logit')),
                se = FALSE, color = 'red') +
    geom_smooth(method = 'glm',
                method.args = list(family = binomial(link = 'probit')),
                se = FALSE, color = 'blue')

ggJitter com curvas logit e probit

Modelos Lineares Generalizados em R

Resumo dos passos

  • Use jitter para evitar sobreposição
  • Adicione um geom suavizado
  • Defina o método e a família corretos
  • Faça o polimento da figura (fora do escopo deste curso)
Modelos Lineares Generalizados em R

Vamos praticar!

Modelos Lineares Generalizados em R

Preparing Video For Download...