如何在ggplot中同时实现轴标签换行与截断？

直接用嵌套的stringr函数组合就能实现需求，先截断到60字符（带省略号），再按每20字符换行，完整代码如下：

library(stringr)
library(ggplot2)

# 处理X轴标签：先截断再换行
ig_plot +
  scale_x_discrete(label = function(x) {
    # 第一步：截断到60字符，末尾加省略号
    truncated_text <- str_trunc(x, width = 60, ellipsis = "...")
    # 第二步：按每20字符换行
    str_wrap(truncated_text, width = 20)
  }) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1, vjust = 1))

错误原因说明 #

你之前碰到object 'x' not found，大概率是嵌套函数时语法错误（比如没把str_trunc的输出作为str_wrap的输入）。这里的逻辑是先对每个标签做截断，再把截断后的文本传给换行函数，两步要按顺序嵌套执行。

完整可运行示例（含模拟数据） #

如果需要验证效果，用你提供的数据结构模拟测试：

# 模拟你的数据结构
ig_protein_long <- tibble::tibble(
  Protein.names = c(
    "Immunoglobulin heavy constant gamma 1 (Ig gamma-1 chain C region) (Ig gamma-1 chain C region EU) (Ig gamma-1 chain C region KOL) (Ig gamma-1 chain C region NIE)",
    "Another extremely long protein name to test truncation and wrapping functionality in ggplot2 axis labels"
  ),
  Protein.Names2 = c("IGHG1_HUMAN", "TEST_PROT_HUMAN"),
  Sample = rep(c("2_1A", "2_1B"), 2),
  Abundance = c(5864380, 4231000, 3890000, 2987000)
)

# 初始化柱状图
ig_plot <- ggplot(ig_protein_long, 
                  aes(x = Protein.names, 
                      y = Abundance,
                      fill = Sample)) +
  geom_col(position = "dodge2")

# 应用标签处理并绘图
ig_plot +
  scale_x_discrete(label = function(x) str_wrap(str_trunc(x, 60, "..."), 20)) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1, vjust = 1))

这样处理后，X轴标签会先被限制在60字符内（含省略号），再自动拆分成每行20字符的多行文本，既控制了总长度，又避免了标签过于拥挤。

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