Hide regression line

mine-cetinkaya-rundel · mine-cetinkaya-rundel · commit 516faf6ecb9d · 2020-11-14T21:43:48.000Z
diff --git a/correlation_game/app.R b/correlation_game/app.R
@@ -187,7 +187,6 @@ server <- function(input, output, clientData, session) {
           }
           if (!options[2]) {
             p <- p + geom_abline(intercept = intercept, slope = slope, color = "#569BBD")
-            p <- p + geom_smooth(aes(x = X, y = Y), method = "lm", se = FALSE, color = "red", formula = "y~x", fullrange = TRUE)
           }
           if (!options[3]) {
             p <- p + geom_path(data = data_ellipse, aes(x = X, y = Y), size = 1, linetype = 2, color = "#569BBD")

Original file line number	Diff line number	Diff line change
`@@ -187,7 +187,6 @@ server <- function(input, output, clientData, session) {`
`187`	`187`	`}`
`188`	`188`	`if (!options[2]) {`
`189`	`189`	`p <- p + geom_abline(intercept = intercept, slope = slope, color = "#569BBD")`
`190`		`- p <- p + geom_smooth(aes(x = X, y = Y), method = "lm", se = FALSE, color = "red", formula = "y~x", fullrange = TRUE)`
`191`	`190`	`}`
`192`	`191`	`if (!options[3]) {`
`193`	`192`	`p <- p + geom_path(data = data_ellipse, aes(x = X, y = Y), size = 1, linetype = 2, color = "#569BBD")`