Regression plotting

R में A/B Testing

Lauryn Burleigh

Data Scientist

Linear line

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

y-axis पर पिज़्ज़ा खाने का समय और x-axis पर enjoy के साथ पॉज़िटिव कोरिलेशन वाला स्कैटर प्लॉट.

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

y-axis पर पिज़्ज़ा खाने का समय और x-axis पर enjoy के साथ पॉज़िटिव कोरिलेशन वाला स्कैटर प्लॉट, तथा कॉन्फिडेंस इंटरवल सहित नीली best-fit लाइन.

Linear prediction

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-axis पर पिज़्ज़ा खाने का समय और x-axis पर enjoy के साथ पॉज़िटिव कोरिलेशन वाला स्कैटर प्लॉट, कॉन्फिडेंस इंटरवल सहित नीली best-fit लाइन, और x=12 तथा y=6.24 पर काली कटती रेखाएँ.

समूह दर्शाना

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

y-axis पर पिज़्ज़ा खाने का समय और x-axis पर enjoy के साथ पॉज़िटिव कोरिलेशन वाला स्कैटर प्लॉट; Pepperoni के पॉइंट्स व लाइन गुलाबी, Cheese के पॉइंट्स व लाइन नीले.

समूह दर्शाना

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

y-axis पर पिज़्ज़ा खाने का समय और x-axis पर enjoy के साथ पॉज़िटिव कोरिलेशन वाला स्कैटर प्लॉट; नीली best-fit लाइन, Cheese के पॉइंट्स गुलाबी और Pepperoni के पॉइंट्स नीले.

Logistic line

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

x-axis पर enjoy और y-axis पर eat again वाले स्कैटर प्लॉट में पॉइंट्स 0 या 1 पर, तथा एक घुमावदार logistic regression लाइन.

Logistic prediction

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-axis पर enjoy और y-axis पर eat again वाला स्कैटर प्लॉट; पॉइंट्स 0 या 1 पर, Pepperoni गुलाबी और Cheese नीले रंग में; एक घुमावदार logistic regression लाइन और x=12 पर काली वर्टिकल लाइन.

अभ्यास करते हैं!

R में A/B Testing