r - 如何将 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

您可以使用自定义函数自定义 ggpairs 图。这是这个问题的数据，问题是规模，但你可以为你的问题做类似的事情

df <- read.table("test.txt")

upperfun <- function(data,mapping){
  ggplot(data = data, mapping = mapping)+
    geom_density2d()+
    scale_x_continuous(limits = c(-1.5,1.5))+
    scale_y_continuous(limits = c(-1.5,1.5))
}   

lowerfun <- function(data,mapping){
  ggplot(data = data, mapping = mapping)+
    geom_point()+
    scale_x_continuous(limits = c(-1.5,1.5))+
    scale_y_continuous(limits = c(-1.5,1.5))
}  


ggpairs(df,upper = list(continuous = wrap(upperfun)),
        lower = list(continuous = wrap(lowerfun)))      # Note: lower = continuous

Answer 2

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

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