Plotta regression

A/B-testning i R

Lauryn Burleigh

Data Scientist

Linjär linje

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

Ett spridningsdiagram med positiv korrelation där tid att äta pizza visas på y-axeln och njutning på x-axeln.

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

Ett spridningsdiagram med positiv korrelation där tid att äta pizza visas på y-axeln och njutning på x-axeln, med en blå regressionslinje och konfidensintervall.

Linjär prediktion

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)

Ett spridningsdiagram med positiv korrelation där tid att äta pizza visas på y-axeln och njutning på x-axeln, med en blå regressionslinje och konfidensintervall samt korsande svarta linjer vid x=12 och y=6,24.

Markera grupper

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

Ett spridningsdiagram med positiv korrelation där tid att äta pizza visas på y-axeln och njutning på x-axeln, med punkter och regressionslinje för Pepperoni i rosa och för Cheese i blått.

Markera grupper

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

Ett spridningsdiagram med positiv korrelation där tid att äta pizza visas på y-axeln och njutning på x-axeln, med en blå regressionslinje och punkter för Cheese i rosa och punkter för Pepperoni i blått.

Logistisk linje

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

Spridningsdiagram med njutning på x-axeln och äta igen på y-axeln, med punkter vid 0 eller 1 och en kurvad logistisk regressionslinje.

Logistisk prediktion

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)

Spridningsdiagram med njutning på x-axeln och äta igen på y-axeln, med punkter vid 0 eller 1 i rosa för Pepperoni och blått för Cheese, en kurvad logistisk regressionslinje och en svart vertikal linje vid 12 på x-axeln.

Nu kör vi en övning!

A/B-testning i R