设置ggpairs宽高比时，如何保证轴刻度标签清晰可读？

当给ggpairs全局添加theme(aspect.ratio=1)时，所有面板都会被强制固定宽高比，这会压缩轴标签的显示空间，进而出现重叠。可以用以下几种方法解决：

方法1：仅给散点图面板设置宽高比 #

ggpairs的对角面板（直方图/密度图）不需要固定1:1比例，只给上下三角的散点图面板单独设置即可，避免全局强制比例挤压标签：

library(GGally)

# 自定义散点图绘图函数，内置1:1比例
custom_scatter <- function(data, mapping, ...) {
  ggplot(data = data, mapping = mapping) +
    geom_point(...) +
    theme(aspect.ratio = 1)
}

# 指定上下三角用自定义散点图，对角用默认密度图
ggpairs(mtcars[, 1:3], 
        lower = list(continuous = custom_scatter),
        upper = list(continuous = custom_scatter))

方法2：调整轴标签的大小与角度 #

如果必须全局设置1:1比例，通过缩小标签字体、旋转x轴标签来释放空间，避免重叠：

library(GGally)

ggpairs(mtcars[, 1:3]) +
  theme(aspect.ratio = 1,
        # 缩小标签字体，旋转x轴标签并右对齐
        axis.text.x = element_text(size = 8, angle = 45, hjust = 1),
        axis.text.y = element_text(size = 8))

方法3：针对不同面板类型单独设置主题 #

利用ggpairs的theme参数，给连续变量面板（散点图）设置1:1比例，同时缩小标签，对角面板不强制比例：

library(GGally)

ggpairs(mtcars[, 1:3],
        theme = list(
          continuous = theme(aspect.ratio = 1,
                             axis.text = element_text(size = 8)),
          diagonal = theme(aspect.ratio = NULL) # 对角面板自适应比例
        ))

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