如何将geom_abline添加到ggpairs？

Question

我想创建这样的东西

library(lattice)
splom(~iris[1:4], groups = Species, data = iris,
      panel=function(x,y,...) {
        panel.abline(0,1)
        panel.superpose(x,y,...)
      })

library(ggplot2)
library(gridExtra)
library(GGally)
ggpairs(iris,columns=1:4,colour="Species") +
  geom_abline(intercept=0,slope=1)

对于该geom_abline元素，我收到错误（“二元运算符的非数字参数”）。

我怎样才能让它发挥作用？

Answer 1

您可以将线条添加到每个子图。

library(ggplot2)
library(gridExtra)
library(GGally)
m=ggpairs(iris,columns=1:4,colour="Species") + geom_abline(intercept=0,slope=1)
for (i in 2:m$nrow) {
  for (j in 1:(i-1)) {
    m[i,j] = m[i,j] + geom_abline(intercept=0,slope=1)
  }
}