r - geom_abline(...) 是否多次绘制数据？

Question

使用 geom_abline(...)(以及 geom_vline 和 geom_hline)是否会在使用时导致同一行的多次叠加“天真”？

例如，假设我们对以下多面散点图感兴趣:

library(ggplot2)
library(dplyr)

k <- 4
data.frame(id = letters[1:k], 
           m = rnorm(k), 
           b = rnorm(k))[rep(1:k, 30),] %>%
  mutate(x = rnorm(n()),
         eps = 0.1*rnorm(n()),
         y = m*x + b + eps) %>%
  ggplot(aes(x, y)) + 
  geom_point() +
  facet_wrap(~ id) ->
  p

最简单的添加ab线的方法如下:

print(p + geom_abline(aes(slope = m, intercept = b), color = 'red'))

这是“正确的方式”吗？特别是，上面不是在每个方面绘制 ab 线 30 次吗？例如，这让它看起来像:

print(p + geom_abline(aes(slope = m, intercept = b + eps), color = 'red'))

如果是这样，做这样的事情会更好吗？

print(p + geom_abline(aes(slope = m, intercept = b), 
                      data = Z %>% group_by(id) %>% summarize(m = unique(m), b = unique(b)),
                      color = 'red'))

请注意，这会产生与第一个图在视觉上无法区分的东西。我的问题是关于使用这些 ggplot 函数的正确方法。

Answer 1

geom_abline 通过使值独一无二来处理同一位置的多条线。您还可以通过运行例如验证p + geom_abline(aes(slope = m, intercept = b), color = 'red', alpha = .1) - 如果在同一点有 30 条线，它们将是不透明的。