如何仅显示ggpairs中的下三角形？答案

【问题标题】：How to show only the lower triangle in ggpairs?如何仅显示ggpairs中的下三角形？
【发布时间】：2017-03-07 17:49:37
【问题描述】：

我正在使用ggpairs 制作配对图，但我只想显示下三角形。我可以将对角线和上三角设为空白，但不能让它们消失，这会留下我不想要的空行和空列。

有什么建议吗？

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

【问题讨论】：

我们可能会弄乱包装的设计和意图，将图表扭曲成您的规格，但为什么不简单地考虑将相关数据包含在对角线上呢？
@PierreLafortune 仍然会留下 Richard 不想要的上三角。
我正在使用 ggpairs 绘制变量之间的 ccf，但使问题更加普遍。我可以在对角线上显示 acf，但 x 和 y 比例会不同。

标签： r ggplot2

【解决方案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)

【讨论】：