如何在ggplot的ZINB模型图中实现图例标签自动换行？

问题背景 #

尝试为ggplot绘制的ZINB模型可视化图实现图例标签自动换行，以下方法均未生效：

• str_wrap(model, width=20)
• scale_colour_discrete(labels = function(x) str_wrap(x, width = 5))
• guides(colour = guide_legend(nrow = 2))

原绘图代码：

library(ggplot2)

ggplot(coefs, aes(x = estimate, y = term, colour = model)) +
  geom_vline(xintercept = 1, lty = 1, color = "yellow", size = 1) +
  geom_pointrange(aes(xmin = conf.low, xmax = conf.high),
    position = position_dodge(width = 0.5)
  ) +
  facet_wrap(~type, scale = "free") +
  geom_text(aes(x = estimate, label = sprintf("%0.2f", estimate)), position = position_dodge(0.5), vjust = -0.5) +
  labs(x = "gy", y = "age") +
  scale_color_manual(
    name = "Model",
    labels = c("Fullfasdfasdfad-asdkljaflsdjfals;jfasdf", "Subadfasdfaasdfasdfasdfsdfasdfasf"),
    values = c("dodgerblue4", "firebrick4")
  )

数据：

coefs <- structure(list(model = c(
  "all_adj", "all_adj", "all_adj", "all_adj",
  "adj_sub", "adj_sub"
), term = c(
  "ageb", "agec", "ageb", "agec",
  "ageb", "ageb"
), type = c(
  "count", "count", "zero", "zero", "count",
  "zero"
), estimate = c(
  0.937781183281121, 1.09774595782208, 0.895560088459192,
  0.891707940838411, 0.76445315191301, 1.01406754426526
), conf.low = c(
  0.422176961883128,
  0.319479297647212, 0.273199977915238, 0.132809852827134, 0.175087960312586,
  0.186498610242251
), conf.high = c(
  2.08309222699744, 3.77190696483063,
  2.93568058885374, 5.98707878088866, 3.33768592898348, 5.51389087026671
)), row.names = c(NA, -6L), class = c("tbl_df", "tbl", "data.frame"))

解决方案 #

核心是在scale_color_manual的labels参数中直接使用stringr::str_wrap处理长文本，同时可配合guide_legend优化图例显示效果：

1. 确保加载stringr包（或直接调用stringr::str_wrap）
2. 在scale_color_manual的labels里对每个长标签应用str_wrap指定换行宽度
3. 通过guides调整图例的对齐方式和排列，让换行后的标签显示更清晰

修改后的完整代码：

library(ggplot2)
library(stringr) # 若不想加载包，可替换为stringr::str_wrap

ggplot(coefs, aes(x = estimate, y = term, colour = model)) +
  geom_vline(xintercept = 1, lty = 1, color = "yellow", size = 1) +
  geom_pointrange(aes(xmin = conf.low, xmax = conf.high),
    position = position_dodge(width = 0.5)
  ) +
  facet_wrap(~type, scale = "free") +
  geom_text(aes(x = estimate, label = sprintf("%0.2f", estimate)), position = position_dodge(0.5), vjust = -0.5) +
  labs(x = "gy", y = "age") +
  scale_color_manual(
    name = "Model",
    # 对标签应用自动换行，width可按需调整
    labels = str_wrap(c("Fullfasdfasdfad-asdkljaflsdjfals;jfasdf", "Subadfasdfaasdfasdfasdfsdfasdfasf"), width = 15),
    values = c("dodgerblue4", "firebrick4")
  ) +
  # 调整图例：左对齐标签，设置行数避免拥挤
  guides(colour = guide_legend(label.hjust = 0, nrow = 2))

失效原因说明 #

• str_wrap(model, width=20)：直接处理数据列model，但代码中图例标签是手动指定的字符串，而非model列原始值，因此无效
• scale_colour_discrete(...)：被后续的scale_color_manual覆盖，手动颜色映射优先级更高，导致该设置不生效
• guides(colour = guide_legend(nrow = 2))：仅改变图例项的排列行数，无法实现标签内部的自动换行，因此解决不了长标签超出的问题

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