如何在ggpairs图中移除首图Y轴标签并统一其余图Y轴范围？

针对你用ggpairs绘制相关性图的需求，这里提供直接修改子图的实现方案：

完整代码示例 #

# 生成基础ggpairs图并保存为对象
p <- ggpairs(predMatrixVal, labeller = "label_parsed", axisLabels = "none")

# 遍历所有子图进行定制修改
for (i in seq(nrow(p$plots))) {
  for (j in seq(ncol(p$plots))) {
    plot_obj <- p$plots[[i, j]]
    
    # 移除第一张子图的Y轴标签
    if (i == 1 && j == 1) {
      plot_obj <- plot_obj + theme(axis.title.y = element_blank())
    } else {
      # 统一其余子图的Y轴范围为0-1
      # 若不想裁剪数据，可替换为 coord_cartesian(ylim = c(0, 1))
      plot_obj <- plot_obj + ylim(0, 1)
    }
    
    # 将修改后的子图放回原对象
    p$plots[[i, j]] <- plot_obj
  }
}

# 输出最终图形
print(p)

关键说明 #

• ggpairs的所有子图都存储在对象的$plots列表中，通过双重循环可以逐个访问和修改。
• 第一张子图对应行列索引[1,1]，用theme(axis.title.y = element_blank())直接隐藏Y轴标签。
• 其余子图使用ylim(0,1)强制设置Y轴范围，如果你需要保留所有数据点（避免超出范围的点被裁剪），可以把ylim(0,1)替换为coord_cartesian(ylim = c(0,1))，后者只是调整显示范围，不会丢弃数据。

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