df <- read.csv(“ab_testing1.csv”)

# Load ggplot2 package
library(ggplot2)

ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_point() +
  geom_smooth(method = "lm", se = FALSE) +
  labs(title = "Scatter Plot of MPG vs. Weight", x = "Weight", y = "Miles per Gallon")