Memplot regresi

Pengujian A/B di R

Lauryn Burleigh

Data Scientist

Garis linear

cor.test(~ Enjoy + Time, data = pizza, 
         method = "pearson")
library(ggplot2)
ggplot(pizza, aes(x = Enjoy, 
                  y = Time)) + 
  geom_point()

Plot sebar dengan korelasi positif: sumbu-y waktu makan pizza dan sumbu-x enjoy.

ggplot(pizza, aes(x = Enjoy, 
                  y = Time)) + 
  geom_point() +
  geom_smooth(method = "lm")

Plot sebar dengan korelasi positif: sumbu-y waktu makan pizza dan sumbu-x enjoy serta garis terbaik biru dengan interval kepercayaan.

Prediksi linear

linear <- lm(Time ~ Enjoy, 
                data = Pizza) 
Enjoy  <- 12
topredict <-  data.frame(Enjoy) 
prediction <- predict(linear, 
                     newdata = topredict) 

ggplot(pizza, aes(x = Enjoy, y = Time)) + 
  geom_point() +
  geom_smooth(method = "lm") +  
  geom_hline(yintercept = prediction) + 
  geom_vline(xintercept = Enjoy)

Plot sebar dengan korelasi positif: sumbu-y waktu makan pizza dan sumbu-x enjoy, garis terbaik biru dengan interval kepercayaan, serta garis hitam berpotongan di x=12 dan y=6,24.

Menandai grup

ggplot(pizza, aes(x = Enjoy, y = Time, 
                  color = Topping)) + 
  geom_point() +
  geom_smooth(method = "lm")

Plot sebar dengan korelasi positif: sumbu-y waktu makan pizza dan sumbu-x enjoy, titik dan garis terbaik untuk Pepperoni merah muda dan untuk Cheese biru.

Menandai grup

ggplot(pizza, aes(x = Enjoy, 
                  y = Time)) + 
  geom_point(aes(colour = Topping)) +
  geom_smooth(method = "lm")

Plot sebar dengan korelasi positif: sumbu-y waktu makan pizza dan sumbu-x enjoy, garis terbaik biru, titik Cheese biru dan Pepperoni merah muda.

Garis logistik

ggplot(pizza, aes(x = Enjoy, 
                  y = EatAgain)) + 
  geom_point(aes(colour = Topping)) +
  geom_smooth(method = "glm",  
              method.args = 
                 list(family = 
                      "binomial"))

Plot sebar dengan enjoy di sumbu-x dan eat again di sumbu-y, titik pada 0 atau 1, serta kurva regresi logistik.

Prediksi logistik

Enjoy  <- 12

ggplot(pizza2, aes(x = Enjoy, 
                   y = EatAgain)) + 
  geom_point(aes(colour = Topping)) +
  geom_smooth(method = "glm",  
              method.args = 
              list(family = 
                   "binomial")) +
  geom_vline(xintercept = Enjoy)

Plot sebar dengan enjoy di sumbu-x dan eat again di sumbu-y, titik 0/1 berwarna merah muda untuk Pepperoni dan biru untuk Cheese, kurva logistik, serta garis vertikal hitam di x=12.

Ayo berlatih!

Pengujian A/B di R