r - ggpairs，按组颜色但单一回归线

Question

鉴于以下 ggpairs 绘图:

data(iris)
ggpairs(iris[1:4],
        lower=list(
          mapping = aes(color=iris$Species),
          continuous = wrap("points", size=0.7)
          )
        )

结果是:

如何将单个回归线添加到每个散点图，而不将回归线也映射到分组，就像添加 continuous = wrap("smooth") 时会发生的情况？

我希望这些点按组着色，但整体上 x 和 y 变量之间关系的回归线。

我不知道将 aes 映射放置在哪里，以便它只影响“点”而不影响“平滑”。

Answer 1

如果您想要像这样的专门绘图，您需要创建自己的函数。它必须采用特定格式，采用 data、mapping 和 ... 参数，并根据这些参数创建 ggplot:

library(GGally)

my_func <- function(data, mapping, ...) {
  
    ggplot(data, mapping) + 
      geom_point(size = 0.7) +
      geom_smooth(formula = y~x, method = loess, color = "black")
  }

ggpairs(iris[1:4],
        lower=list(
          mapping = aes(color=iris$Species),
          continuous = my_func
          )
        )

如果您正在寻找直线回归线，则只需根据需要修改 my_func 即可。例如，

my_func <- function(data, mapping, ...) {
  
    ggplot(data, mapping) + 
      geom_point(size = 0.7) +
      geom_smooth(formula = y~x, method = lm, color = "black", se = FALSE,
                  linetype = 2)
  }

给你: