geom/stat_qq_line() use stat = "abline"

teunbrand · teunbrand · commit ebf1c276afbe · 2024-12-06T09:49:32.000+01:00
diff --git a/R/stat-qq-line.R b/R/stat-qq-line.R
@@ -6,7 +6,7 @@
 #'   the data
 geom_qq_line <- function(mapping = NULL,
                          data = NULL,
-                         geom = "path",
+                         geom = "abline",
                          position = "identity",
                          ...,
                          distribution = stats::qnorm,
@@ -86,6 +86,9 @@ StatQqLine <- ggproto("StatQqLine", Stat,
       x <- range(theoretical)
     }
 
-    data_frame0(x = x, y = slope * x + intercept)
+    data_frame0(
+      x = x, y = slope * x + intercept,
+      slope = slope, intercept = intercept
+    )
   }
 )

Original file line number	Diff line number	Diff line change
`@@ -6,7 +6,7 @@`
`6`	`6`	`#' the data`
`7`	`7`	`geom_qq_line <- function(mapping = NULL,`
`8`	`8`	`data = NULL,`
`9`		`- geom = "path",`
	`9`	`+ geom = "abline",`
`10`	`10`	`position = "identity",`
`11`	`11`	`...,`
`12`	`12`	`distribution = stats::qnorm,`
`@@ -86,6 +86,9 @@ StatQqLine <- ggproto("StatQqLine", Stat,`
`86`	`86`	`x <- range(theoretical)`
`87`	`87`	`}`
`88`	`88`
`89`		`- data_frame0(x = x, y = slope * x + intercept)`
	`89`	`+ data_frame0(`
	`90`	`+ x = x, y = slope * x + intercept,`
	`91`	`+ slope = slope, intercept = intercept`
	`92`	`+ )`
`90`	`93`	`}`
`91`	`94`	`)`