如何让GGally包ggpairs图中的过长标签自动换行？

我来给你几个简单有效的办法，轻松搞定GGally包中ggpairs生成子图时标签被截断的问题：

方法一：手动重命名变量，添加换行符 #

直接给长变量名手动插入\n换行符，让标签自动换行显示：

library(GGally)
library(dplyr)

# 先给数据框重命名，把长变量名拆成多行
tt_small_renamed <- tt_small %>%
  rename(
    "teacher prefix" = teacher_prefix,
    "project grade\ncategory" = project_grade_category,
    "teacher number\nof previously\nposted projects" = teacher_number_of_previously_posted_projects,
    "project is\napproved" = project_is_approved
  )

# 生成ggpairs图表
tt_small_renamed %>% 
  ggpairs(columns = c("teacher prefix", "project grade\ncategory", "teacher number\nof previously\nposted projects", "project is\napproved"))

方法二：自动换行处理（推荐） #

用stringr包的str_wrap函数自动给长文本换行，不用手动调整，效率更高：

library(GGally)
library(dplyr)
library(stringr)

# 定义要分析的变量列
comparisson <- c("teacher_prefix", "project_grade_category", "teacher_number_of_previously_posted_projects", "project_is_approved")

# 自定义标签换行函数
wrap_labels <- function(x) {
  # 先把下划线换成空格，再按指定宽度换行
  str_wrap(str_replace_all(x, "_", " "), width = 12)
}

# 生成带自动换行标签的ggpairs图表
tt_small %>%
  ggpairs(columns = comparisson,
          labeller = labeller(.cols = wrap_labels)) +
  # 调整轴标签的角度和对齐，避免重叠
  theme(
    axis.text.x = element_text(angle = 45, hjust = 1),
    axis.text.y = element_text(hjust = 1)
  )

额外优化：调整主题元素 #

如果还是有重叠，可以进一步调整主题里的文本大小和间距：

tt_small %>%
  ggpairs(columns = comparisson,
          labeller = labeller(.cols = wrap_labels)) +
  theme(
    axis.text.x = element_text(angle = 45, hjust = 1, size = 8),
    axis.text.y = element_text(hjust = 1, size = 8),
    strip.text = element_text(size = 8)
  )

这些方法都能有效解决标签截断的问题，你可以根据自己的需求选择合适的方式~

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