การพล็อตกราฟการถดถอย

A/B Testing ใน R

Lauryn Burleigh

Data Scientist

เส้นเชิงเส้น

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

กราฟกระจายที่แสดงความสัมพันธ์เชิงบวก โดยแกน y คือเวลาในการกินพิซซ่า และแกน x คือ Enjoy

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

กราฟกระจายที่แสดงความสัมพันธ์เชิงบวก โดยแกน y คือเวลาในการกินพิซซ่า แกน x คือ Enjoy และมีเส้นที่เหมาะสมที่สุดสีน้ำเงินพร้อมช่วงความเชื่อมั่น

การพยากรณ์เชิงเส้น

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)

กราฟกระจายที่แสดงความสัมพันธ์เชิงบวก โดยแกน y คือเวลาในการกินพิซซ่า แกน x คือ Enjoy มีเส้นที่เหมาะสมที่สุดสีน้ำเงินพร้อมช่วงความเชื่อมั่น และเส้นดำตัดกันที่ x = 12 และ y = 6.24

การระบุกลุ่ม

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

กราฟกระจายที่แสดงความสัมพันธ์เชิงบวก โดยแกน y คือเวลาในการกินพิซซ่า แกน x คือ Enjoy จุดและเส้นที่เหมาะสมของ Pepperoni เป็นสีชมพู และของ Cheese เป็นสีน้ำเงิน

การระบุกลุ่ม

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

กราฟกระจายที่แสดงความสัมพันธ์เชิงบวก โดยแกน y คือเวลาในการกินพิซซ่า แกน x คือ Enjoy มีเส้นที่เหมาะสมที่สุดสีน้ำเงิน จุดของ Cheese เป็นสีชมพู และจุดของ Pepperoni เป็นสีน้ำเงิน

เส้นโลจิสติก

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

กราฟกระจายที่แกน x คือ Enjoy และแกน y คือ EatAgain โดยจุดอยู่ที่ 0 หรือ 1 และมีเส้นการถดถอยโลจิสติกที่มีความโค้ง

การพยากรณ์โลจิสติก

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)

กราฟกระจายที่แกน x คือ Enjoy และแกน y คือ EatAgain โดยจุดอยู่ที่ 0 หรือ 1 สีชมพูสำหรับ Pepperoni และสีน้ำเงินสำหรับ Cheese มีเส้นการถดถอยโลจิสติกที่โค้ง และเส้นแนวตั้งสีดำที่ x = 12

มาฝึกกันเถอะ!

A/B Testing ใน R