解决ggpairs图表坐标轴标签超出、字体调整无效问题

直接用theme(axis.text = element_text(size=8))不生效，是因为ggpairs生成的子图会覆盖全局主题的部分设置，以下是几种可行的解决方法：

方法一：旋转坐标轴标签+调整边距 #

通过旋转X轴标签、缩小字体并预留足够边距，避免标签被截断：

library(GGally)
library(ggplot2)

# 示例数据（带长列名）
long_col_df <- data.frame(
  `用户行为分析_每日活跃用户数` = rnorm(50),
  `用户行为分析_平均停留时长` = rnorm(50),
  `用户行为分析_转化率统计` = rnorm(50)
)

ggpairs(long_col_df) +
  theme(
    axis.text.x = element_text(size=7, angle=45, vjust=1, hjust=1), # 旋转X轴标签并对齐
    axis.text.y = element_text(size=7), # 缩小Y轴标签字体
    plot.margin = margin(1, 1, 2, 1, "cm") # 增大底部边距，防止标签被截断
  )

方法二：手动给列名添加换行符 #

把长列名拆成多行，不用旋转也能完整显示：

# 修改列名，加入换行符\n
colnames(long_col_df) <- c(
  "用户行为分析\n每日活跃用户数",
  "用户行为分析\n平均停留时长",
  "用户行为分析\n转化率统计"
)

ggpairs(long_col_df) +
  theme(axis.text = element_text(size=8))

方法三：自定义ggpairs面板主题 #

针对ggpairs的上下三角面板单独设置，同时统一调整标签样式：

ggpairs(long_col_df,
        lower = list(continuous = wrap("points", size=0.6)), # 调整散点大小
        upper = list(continuous = wrap("cor", size=6))) + # 调整相关系数字体
  theme_minimal() +
  theme(
    axis.text.x = element_text(size=7, angle=45, hjust=1),
    axis.text.y = element_text(size=7)
  )

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