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