如何在R的ggplot中对无空格长分类标签按指定字符数换行？

针对无空格、用下划线连接的长分类标签，str_wrap()因依赖空格分词无法直接生效，这里提供两种按指定字符数换行的方案：

方案1：强制按固定字符数换行（忽略原有分隔） #

自定义标签处理函数，用正则表达式在每指定字符数后插入换行符\n，示例设置为每15个字符换行：

library(ggplot2)
library(stringr)

df = data.frame(x = c("label", "long label with spaces", "long_label_with_no_spaces_in_it_which_is_too_lon"), 
                y = c(10, 15, 20))

# 自定义按字符数换行的函数
wrap_by_char <- function(x, width = 15) {
  str_replace_all(x, paste0("(.{1,", width, "})"), "\\1\n") %>%
    str_trim() # 去除末尾多余换行
}

ggplot(df, aes(x, y)) +
  geom_bar(stat = "identity") +
  scale_x_discrete(labels = function(x) wrap_by_char(x, width = 15))

方案2：先转下划线为空格，再按词/字符换行（兼顾语义） #

如果下划线原本用于分隔单词，可先将其替换为空格，再用str_wrap()按指定宽度换行，既保证换行位置符合语义，又不会超过字符限制：

ggplot(df, aes(x, y)) +
  geom_bar(stat = "identity") +
  scale_x_discrete(labels = function(x) {
    # 替换下划线为空格，再按指定宽度换行
    str_wrap(str_replace_all(x, "_", " "), width = 15)
  })

两种方案按需选择：方案1适合纯连续无意义长字符串，强制切割；方案2适合下划线作为单词分隔符的场景，换行更符合阅读习惯。

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