如何在ggplot中调整绘图区域与轴标签空间，避免轴标签挤压？

核心处理方向 #

要实现缩小绘图区域、给轴标签预留更多空间并让标签在50字符后换行，需从轴标签换行控制和绘图区域边距调整两个维度入手，结合ggplot2的刻度设置与主题参数完成配置。

具体代码实现 #

1. 控制轴标签50字符换行+调整边距 #

使用stringr::str_wrap()直接指定标签换行长度，再通过theme()调整绘图区域边距，给轴标签腾空间：

library(ggplot2)
library(stringr)

# 示例测试数据
df <- data.frame(
  category = c(
    "这是一段远超50字符的分类标签，用来验证自动换行的效果是否符合预期",
    "第二段超长分类标签，需要在指定字符数后自动折行显示避免拥挤",
    "短标签示例"
  ),
  value = c(12, 18, 9)
)

ggplot(df, aes(x = category, y = value)) +
  geom_col() +
  # 设置x轴标签在50字符处自动换行
  scale_x_discrete(labels = function(x) str_wrap(x, width = 50)) +
  theme(
    # 调整绘图区域边距：上下/右侧留小空间，左侧/底部给轴标签留足位置（数值对应上、右、下、左）
    plot.margin = margin(10, 10, 30, 70, "pt"),
    # 调整轴标签对齐与行高，优化显示效果
    axis.text.x = element_text(
      hjust = 1,
      vjust = 1,
      lineheight = 1.2
    ),
    # 压缩绘图面板的内边距，进一步缩小绘图区域
    panel.margin = margin(0, 0, 0, 0, "pt")
  )

2. 针对Y轴标签的适配调整 #

如果拥挤的是Y轴标签，只需替换对应的刻度与主题参数即可：

ggplot(df, aes(y = category, x = value)) +
  geom_col() +
  scale_y_discrete(labels = function(x) str_wrap(x, width = 50)) +
  theme(
    plot.margin = margin(10, 70, 10, 10, "pt"),
    axis.text.y = element_text(
      hjust = 1,
      lineheight = 1.2
    )
  )

关键注意事项 #

• str_wrap()的width参数直接设定换行的字符阈值，设为50即可满足需求。
• plot.margin的四个数值分别对应上、右、下、左的边距，单位支持pt（点）、cm（厘米）等，可根据实际显示效果微调。
• 若不需要轴标题，可通过element_blank()隐藏，进一步节省空间。

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