2'den fazla açıklayıcı değişken

R'de Orta Düzey Regresyon

Richie Cotton

Data Evangelist at DataCamp

Geçen dersten

ggplot(
  fish,
  aes(length_cm, height_cm, color = mass_g)
) +
  geom_point() +
  scale_color_viridis_c(option = "inferno")

Uzunluk ve yüksekliğe göre kütle renkli nokta grafiği (inferno paleti).

Türlere göre fasetleme

ggplot(
  fish,
  aes(length_cm, height_cm, color = mass_g)
) +
  geom_point() +
  scale_color_viridis_c(option = "inferno") +
  facet_wrap(vars(species))

Türe göre bölünmüş: uzunluk, yükseklik ve kütle renkli nokta grafiği.

Farklı etkileşim düzeyleri

Etkileşim yok

lm(mass_g ~ length_cm + height_cm + species + 0, data = fish)

Değişken çiftleri arasında ikili etkileşimler

lm(
  mass_g ~ length_cm + height_cm + species + length_cm:height_cm + length_cm:species + height_cm:species + 0, 
  data = fish
)

Üç değişken arasında üçlü etkileşim

lm(
  mass_g ~ length_cm + height_cm + species + length_cm:height_cm + length_cm:species + height_cm:species + length_cm:height_cm:species + 0, 
  data = fish
)

Tüm etkileşimler

lm(
  mass_g ~ length_cm + height_cm + species + length_cm:height_cm + length_cm:species + height_cm:species + length_cm:height_cm:species + 0, 
  data = fish
)

lm(
  mass_g ~ length_cm * height_cm * species + 0, 
  data = fish
)

Yalnızca ikili etkileşimler

lm(
  mass_g ~ length_cm + height_cm + species + length_cm:height_cm + length_cm:species + height_cm:species + 0, 
  data = fish
)

lm(
  mass_g ~ (length_cm + height_cm + species) ^ 2 + 0, 
  data = fish
)

lm(
  mass_g ~ I(length_cm) ^ 2 + height_cm + species + 0, 
  data = fish
)

¹ Açıklayıcı değişkenleri karesini alma için bkz. "Introduction to Regression in R", Bölüm 2, "Transforming variables"

Tahmin akışı

mdl_mass_vs_all <- lm(mass_g ~ length_cm * height_cm * species * 0, data = fish)

explanatory_data <- expand_grid(
  length_cm = seq(5, 60, 6),
  height_cm = seq(2, 20, 2),
  species = unique(fish$species)
)

prediction_data <- explanatory_data %>% 
  mutate(mass_g = predict(mdl_mass_vs_all, explanatory_data))

Tahminleri görselleştirme

ggplot(
  fish,
  aes(length_cm, height_cm, color = mass_g)
) +
  geom_point() +
  scale_color_viridis_c(option = "inferno") +
  facet_wrap(vars(species)) +
  geom_point(
    data = prediction_data, 
    size = 3, shape = 15
  )

Uzunluk-ve-yüksekliğe-göre-kütle-ve-türe-göre-puanlar (tahmin noktalarıyla).

Hadi pratik yapalım!

R'de Orta Düzey Regresyon