ggplot2 ve binomiyal GLM

R'de Genelleştirilmiş Doğrusal Modeller

Richard Erickson

Instructor

Verimde ne görebilirim?

Servis mesafesi, otobüse binme olasılığını değiştiriyor mu?

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

Yalnızca noktalarla çizim

geom_jitter()

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

Jitter uygulanmış nokta grafiği

geom_smooth()

gg_jitter + geom_smooth()

Yumuşatılmış geom ile önceki jitter grafiği.

factor'dan numeric'e

str(bus)
bus$Bus2 <- as.numeric(bus$Bus) - 1

geom_smooth()

gg_jitter + geom_smooth()

Veriyi karakter yerine sayısal yap

doğrusal modeller

gg_jitter + geom_smooth(method = 'glm')

ggJitter'a lm ekle

Lojistik regresyonlar

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

Lojistik eğrili ggJitter

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')

Hem logit hem probit eğrili ggJitter

Adımların özeti

Çakışmayı önlemek için jitter ile çiz
Yumuşatılmış bir geom ekle
Doğru method ve family belirt
Grafiğini cilala (bu derste yok)

Hadi pratik yapalım!

R'de Genelleştirilmiş Doğrusal Modeller