如何在ggplot2中结合命名向量重命名并换行分面标签？

给你两个实用的解决方案，按需选择：

方案1：先替换数据分面值，再用自动换行 #

先把数据里的facet列直接替换成目标新名称（可手动加\n，也可后续让函数自动换行），再用label_wrap_gen处理换行逻辑：

# 加载dplyr（未安装先执行 install.packages("dplyr")）
library(dplyr)

# 替换数据中facet的旧名称为新名称
my_plot_data <- my_plot_data %>%
  mutate(facet = recode(facet, !!!facet_rename))

# 绘图时调用label_wrap_gen实现换行（width为每行最大字符数，按需调整）
ggplot() +
  facet_grid(rows = vars(facet), labeller = label_wrap_gen(width = 10)) +
  geom_line(data = my_plot_data, aes(x = rpt, y = height_rel, colour = group))

如果新名称里已经手动加了\n，label_wrap_gen会自动识别并换行；如果没加，它会按你设置的width自动拆分文本。

方案2：自定义labeller函数，同时实现重命名和换行 #

不用修改原始数据，直接写一个labeller函数整合重命名与换行逻辑：

# 定义自定义labeller函数
custom_labeller <- function(x) {
  # 按命名向量替换旧名称
  renamed <- facet_rename[x]
  # 按指定宽度自动换行（width自行调整）
  stringr::str_wrap(renamed, width = 10)
}

# 绘图时调用自定义labeller
ggplot() +
  facet_grid(rows = vars(facet), labeller = labeller(facet = custom_labeller)) +
  geom_line(data = my_plot_data, aes(x = rpt, y = height_rel, colour = group))

要是想保留手动添加的\n而非自动换行，把stringr::str_wrap那行换成return(renamed)即可；也可以用as_labeller(facet_rename, label_parsed)直接解析换行，但注意名称里的特殊字符可能需要转义，不如方案1稳妥。

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