如何将ggpairs散点图矩阵逆时针旋转90度并调整轴文本？

问题 #

使用ggpairs()绘制散点图矩阵时，希望将整个矩阵逆时针旋转90度并同步调整轴文本，但添加theme()后绘图显示为NULL。示例代码如下：

library(dplyr)
library(ggplot2)
library(GGally)
library(MASS)
cars <- dplyr::select(Cars93, Type, Price, MPG.city, MPG.highway, 
              EngineSize, Origin)
ggpairs(cars)

当前矩阵效果：

期望矩阵效果：

解决方案 #

1. 修复theme()返回NULL的问题 #

直接给ggpairs()添加theme()后显示NULL，大多是GGally与ggplot2版本不兼容导致，先更新依赖包：

install.packages(c("GGally", "ggplot2"))

更新后即可正常通过+为ggpairs对象添加主题，例如：

p <- ggpairs(cars)
p + theme(axis.text.x = element_text(angle = 90))

2. 实现矩阵逆时针旋转90度效果 #

ggpairs本身不支持直接旋转整个矩阵，可通过以下两种方式实现预期效果：

方式一：反转变量顺序+调整轴文本

通过反转数据列的顺序模拟旋转布局，再调整轴文本角度匹配视觉效果：

library(dplyr)
library(ggplot2)
library(GGally)
library(MASS)

# 加载数据并反转变量顺序
cars <- dplyr::select(Cars93, Type, Price, MPG.city, MPG.highway, EngineSize, Origin)
cars_rot <- cars %>% select(rev(colnames(.)))

# 绘制旋转后的散点图矩阵
p <- ggpairs(cars_rot,
             # 调整对角柱子的文本角度
             diag = list(
               continuous = wrap("barDiag", axis.text.x = element_text(angle = 90)),
               discrete = wrap("barDiag", axis.text.x = element_text(angle = 90))
             ))

# 统一调整轴文本样式
p <- p + theme(
  axis.text.x = element_text(angle = 90, hjust = 1, vjust = 0.5),
  axis.text.y = element_text(angle = 0)
)

# 输出绘图
print(p)

方式二：子图coord_flip()+主题调整

对每个子图应用coord_flip()实现旋转，同时配合主题调整轴文本：

# 自定义旋转绘图函数
flip_scatter <- function(data, mapping, ...) {
  ggplot(data, mapping) + geom_point(...) + coord_flip()
}

# 绘制旋转后的矩阵
p <- ggpairs(cars,
             lower = list(continuous = flip_scatter, discrete = flip_scatter),
             upper = list(continuous = flip_scatter, discrete = flip_scatter),
             diag = list(
               continuous = wrap("barDiag", coord_flip = TRUE),
               discrete = wrap("barDiag", coord_flip = TRUE)
             ))

# 调整轴文本方向
p <- p + theme(
  axis.text.x = element_text(angle = 0),
  axis.text.y = element_text(angle = 90, hjust = 1)
)

print(p)

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