by对，按组分颜色，但单线回归

Question

给出了下面的ggg结对绘图：

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)
  }

给你：

​

​