ggplot2：隐藏图例后仍在侧边预留空间放置ggrepel分段标签

问题说明 #

目标是绘制单根堆叠条形图，借助ggrepel在图表侧边放置各堆叠分段的对应标签；当前遇到的问题是，将图例设置为legend.position = "none"隐藏后，ggplot的绘图区域会自动拉伸占满全部画布宽度，原本图例所在的侧边预留空间被完全压缩，导致侧边标签没有足够的放置位置。
现有实现的运行表现：

• 保留图例时，侧边会自动因图例占位留出足够空间，标签可以正常放置
• 隐藏图例后，绘图区域自动占满全宽，侧边空余空间直接消失，标签会被挤出版面范围无法正常显示
  你目前的实现代码如下：

library(ggplot2)
library(ggrepel)

data <- data.frame(
  id = 1,
  region = factor(c("A", "B", "C")),
  value = c(1, 2, 3)
)

ggplot(data = data, 
       aes(x = id, y = value, fill = region)) +
  geom_bar(position = "stack", stat = "identity", width = 0.1) +
  theme_void() + 
  theme(legend.position = "none",
        legend.margin = margin(c(10, 70, 5, 5))) + 
  geom_text_repel(
    aes(label = region),
    position = position_stack(vjust = 1),
    hjust = 40,
    box.padding = .4
  )

核心解决思路 #

隐藏图例后侧边空间消失的本质是：ggplot会根据可见元素自动调整绘图区域的占比，没有可见元素（图例）占位时，绘图区域会占满全部可用画布。我们不需要强行保留一个无意义的图例占位，只需要手动给画布预留固定的侧边空白空间，让绘图区域不会自动占满全宽，就能为侧边的ggrepel标签留出稳定的放置位置。

修正后的可复用代码 #

library(ggplot2)
library(ggrepel)

data <- data.frame(
  id = 1,
  region = factor(c("A", "B", "C")),
  value = c(1, 2, 3)
)

ggplot(data = data, 
       aes(x = id, y = value, fill = region)) +
  geom_bar(position = "stack", stat = "identity", width = 0.1) +
  theme_void() + 
  theme(
    # 完全隐藏图例
    legend.position = "none",
    # 手动为画布设置边距，预留右侧空间放标签
    plot.margin = margin(t = 10, r = 2, b = 10, l = 10, unit = "cm")
  ) + 
  geom_text_repel(
    aes(label = region),
    # 标签对齐到每个堆叠分段的垂直中心
    position = position_stack(vjust = 0.5),
    # 标签从条形右边缘开始向右排布
    hjust = -0.1,
    box.padding = 0.5,
    # 关闭标签和条形之间的引导线
    segment.linetype = "blank"
  )

关键参数调整说明 #

• 移除了原代码中无实际作用的legend.margin参数：该参数仅在图例可见时生效，隐藏图例后不会产生任何预留空间的效果
• 通过plot.margin设置画布边距：四个参数依次对应上、右、下、左方向的画布留白，右侧边距的数值可以根据标签文字长度调整，标签越长，右侧留白可以设得越大
• 优化了geom_text_repel的位置参数：将原代码中容易导致标签偏移的过大hjust值（40）调整为常规的右对齐偏移量（-0.1），同时把堆叠位置的vjust从1（对齐分段顶部）调整为0.5（对齐分段垂直中心），让标签排布更整齐
• 可选替代方案：如果不想通过调整画布边距留白，也可以在绘图层手动拓展x轴范围，直接在绘图区域内留出右侧空间，只需要在ggplot链路中加上scale_x_continuous(limits = c(0.5, 2))，即可把x轴范围从单根条形的位置（x=1）向右拓展到x=2的位置，留出一倍宽度的空间放置标签

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