如何在ggplot中换行分面标签同时保留变量名？

要同时实现分面标签保留变量名+自动换行的需求，你可以自定义一个labeller函数，把label_both生成的带变量名的标签，再通过stringr::str_wrap进行换行处理。

实现步骤示例： #

1. 加载所需工具包
2. 自定义兼具两种功能的labeller函数
3. 将其应用到分面绘图中

library(ggplot2)
library(stringr)

# 自定义labeller：保留变量名并按指定宽度换行
label_both_wrap <- function(width = 10) {
  labeller(
    .default = function(x) {
      str_wrap(label_both(x), width = width)
    }
  )
}

# 你的示例数据集
df <- data.frame(x = rnorm(100), y = rnorm(100), 
                 a = sample(c("Group 1", "Group 2"), 50, replace = TRUE),
                 b = sample(c("Group 1", "Group 2"), 50, replace = TRUE))

# 应用自定义labeller绘图
ggplot(df, aes(x, y)) +
  geom_point() +
  facet_grid(a~b, labeller = label_both_wrap(10))

原理说明： #

• label_both(x)负责生成"变量名: 标签值"格式的文本，保留变量名信息
• str_wrap(..., width = 10)负责将生成的文本按指定宽度自动换行
• 把两步逻辑嵌套在自定义labeller里，就能同时满足两个需求

你可以根据实际标签的长度，灵活调整width参数的数值，适配不同的显示需求。

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