如何只显示ggpairs中的下三角？

Question

我正在使用ggpairs制作一对情节，但我只想显示下三角形。我可以将对角线和上三角形留空，但不能使它们离开，留下一个空行和一个我不想要的空列。

有什么建议吗？

library("GGally")
ggpairs(iris[, 1:4], 
        lower  = list(continuous = "points"),
        upper  = list(continuous = "blank"),
        diag  = list(continuous = "blankDiag")
        )

here

Answer 1

可以编辑ggpairs对象。对象的大部分是list图。可以从此列表中删除不需要的图，并修改ggpairs对象的其他元素以匹配。

这是一个可以执行此操作的功能

gpairs_lower <- function(g){
  g$plots <- g$plots[-(1:g$nrow)]
  g$yAxisLabels <- g$yAxisLabels[-1]
  g$nrow <- g$nrow -1

  g$plots <- g$plots[-(seq(g$ncol, length(g$plots), by = g$ncol))]
  g$xAxisLabels <- g$xAxisLabels[-g$ncol]
  g$ncol <- g$ncol - 1

  g
}

library("GGally")
g <- ggpairs(iris[, 1:4], 
             lower  = list(continuous = "points"),
             upper  = list(continuous = "blank"),
             diag  = list(continuous = "blankDiag")
     )

gpairs_lower(g)