自定义ggpairs绘图后X轴文本消失，如何恢复或优化实现？

问题背景 #

想要用ggpairs创建相关矩阵，仅保留下半部分的散点+拟合线图，移除左上、右下空白区域的冗余轴标签。但通过自定义lowerFn、设置upper和diag为空白后，修改ggpairs对象的轴标签和绘图列表导致X轴文本消失，需要恢复X轴标签或寻找替代实现方法。

解决方案一：修正原代码逻辑，保留X轴标签 #

原代码的核心问题在于错误选择了绘图区域索引，且直接修改xAxisLabels/yAxisLabels破坏了标签映射关系。以下是修正后的代码：

library(tidyverse)
library(GGally)

# 自定义下半部分绘图函数
lowerFn <- function(data, mapping, ...) {
  p <- ggplot(data = data, mapping = mapping) +
    geom_point(alpha = 0.8, size = 1) +
    geom_smooth(color = "red", method = 'lm', linewidth = 0.8, se = FALSE, ...)
  p
}

# 创建基础ggpairs对象，仅保留lower部分（注意参数为columns，原代码column是笔误）
ggtest <- ggpairs(mtcars,
                  columns = 4:7,
                  lower = list(continuous = wrap(lowerFn)),
                  upper = list(continuous = "blank"),
                  diag = list(continuous = "blankDiag"),
                  switch = "both"
)

# 筛选真正的下半部分子图（对应矩阵中i>j的位置，共6个）
lower_indices <- c(5, 9, 10, 13, 14, 15)
ggtest$plots <- ggtest$plots[lower_indices]

# 恢复原始轴标签，避免直接截取导致的缺失
ggtest$xAxisLabels <- colnames(mtcars)[4:7]
ggtest$yAxisLabels <- colnames(mtcars)[4:7]

# 精准控制轴标签可见性：仅最底部行显示X轴文本，仅最左侧列显示Y轴文本
ggtest <- ggtest + theme(
  axis.text.x = element_text(
    color = ifelse(ggtest$rowId == 4, "black", "transparent")
  ),
  axis.text.y = element_text(
    color = ifelse(ggtest$colId == 1, "black", "transparent")
  )
)

ggtest

解决方案二：更简洁的实现（无需手动修改plots列表） #

通过在自定义函数中根据子图的位置动态控制轴标签的显示，避免手动修改ggpairs对象的内部结构：

library(tidyverse)
library(GGally)

# 自定义下半部分绘图函数，根据子图位置控制轴显示
lowerFn <- function(data, mapping, row, col, ...) {
  p <- ggplot(data = data, mapping = mapping) +
    geom_point(alpha = 0.8, size = 1) +
    geom_smooth(color = "red", method = 'lm', linewidth = 0.8, se = FALSE, ...)
  
  # 仅最底部行（对应原矩阵第4行）显示X轴文本
  if (row != 4) {
    p <- p + theme(axis.text.x = element_blank())
  }
  # 仅最左侧列（对应原矩阵第1列）显示Y轴文本
  if (col != 1) {
    p <- p + theme(axis.text.y = element_blank())
  }
  p
}

# 创建ggpairs对象，直接使用带位置参数的自定义函数
ggtest <- ggpairs(mtcars,
                  columns = 4:7,
                  lower = list(continuous = wrap(lowerFn)),
                  upper = list(continuous = "blank"),
                  diag = list(continuous = "blankDiag"),
                  switch = "both"
)

# 隐藏空白区域的轴标签占位
ggtest <- ggtest + theme(
  axis.text.x = element_text(color = ifelse(ggtest$rowId == 4, "black", "transparent")),
  axis.text.y = element_text(color = ifelse(ggtest$colId == 1, "black", "transparent"))
)

ggtest

关键说明 #

• 原代码中*column参数应为columns*（复数），属于笔误，修正后能确保正确选择目标列。
• 直接修改ggpairs对象的plots、xAxisLabels等内部属性容易破坏对象结构，推荐通过theme或自定义函数动态控制轴显示。
• 利用ggtest$rowId和ggtest$colId可以获取每个子图在矩阵中的位置，从而精准控制轴标签的可见性。

内容的提问来源于stack exchange，提问作者ChrisAl