Vẽ hồi quy

A/B Testing bằng R

Lauryn Burleigh

Data Scientist

Đường tuyến tính

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

Biểu đồ phân tán tương quan dương: thời gian ăn pizza trên trục y và mức thích trên trục x.

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

Biểu đồ phân tán tương quan dương: thời gian ăn pizza trên trục y và mức thích trên trục x, kèm đường hồi quy tuyến tính màu xanh và khoảng tin cậy.

Dự đoán tuyến tính

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)

Biểu đồ phân tán tương quan dương: thời gian ăn pizza trên trục y và mức thích trên trục x, có đường hồi quy tuyến tính màu xanh với khoảng tin cậy và hai đường đen cắt nhau tại x = 12 và y = 6,24.

Phân nhóm

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

Biểu đồ phân tán tương quan dương: thời gian ăn pizza trên trục y và mức thích trên trục x; điểm và đường hồi quy cho Pepperoni màu hồng, cho Cheese màu xanh.

Phân nhóm

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

Biểu đồ phân tán tương quan dương: thời gian ăn pizza trên trục y và mức thích trên trục x, có đường hồi quy tuyến tính màu xanh; điểm Cheese màu xanh lam, Pepperoni màu hồng.

Đường logistic

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

Biểu đồ phân tán với enjoy trên trục x và eat again trên trục y, điểm tại 0 hoặc 1, có đường hồi quy logistic cong.

Dự đoán logistic

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)

Biểu đồ phân tán với enjoy trên trục x và eat again trên trục y, điểm 0/1: Pepperoni màu hồng, Cheese màu xanh; có đường logistic cong và đường thẳng đứng màu đen tại x = 12.

Ayo berlatih!

A/B Testing bằng R