如何确保ggplot2中geom_text的所有文字适配图表区域？

方案1：使用ggrepel包自动调整文本位置（推荐） #

ggrepel的geom_text_repel()会自动计算文本位置，避免超出图表边界，同时还能处理文本重叠问题，无需手动设置轴范围，兼容线性/对数轴转换。

library(dplyr)
library(ggplot2)
library(ggrepel)

data.frame(x=c(1,10,100,1000,10000), nms = c("A","B","C","D","E")) %>%
  ggplot(aes(x=x, y=nms)) + 
  geom_bar(stat = "identity") + 
  geom_text_repel(aes(label = x), 
                  direction = "x",  # 仅在x轴方向调整位置
                  hjust = 0,  # 初始左对齐
                  color = "gray",
                  box.padding = 0.2)  # 控制文本与条形的间距

如果需要对数转换，直接添加scale_x_log10()即可，文本位置会自动适配对数轴：

# 对数轴示例
data.frame(x=c(1,10,100,1000,10000), nms = c("A","B","C","D","E")) %>%
  ggplot(aes(x=x, y=nms)) + 
  geom_bar(stat = "identity") + 
  geom_text_repel(aes(label = x), 
                  direction = "x",
                  hjust = 0,
                  color = "gray") +
  scale_x_log10()

方案2：动态计算文本宽度，自动扩展x轴范围（无需额外包） #

通过grid包计算文本的实际显示宽度，结合x轴的转换规则（兼容线性/对数轴），动态调整x轴上限，完全避免手动设置固定比例或数值。

library(dplyr)
library(ggplot2)
library(grid)

df <- data.frame(x=c(1,10,100,1000,10000), nms = c("A","B","C","D","E"))

# 计算每个标签的显示宽度（转换为图表坐标单位）
label_widths <- sapply(df$x, function(lab) {
  grob <- textGrob(lab)
  convertWidth(grob$width, "npc", valueOnly = TRUE)
})

# 先绘制基础图表
p <- ggplot(df, aes(x=x, y=nms)) + 
  geom_bar(stat = "identity") + 
  geom_text(aes(label = x), 
            vjust = 0.5, hjust = -0.1, color = "gray")

# 获取x轴的转换函数（兼容线性/对数轴）
x_trans <- ggplot_build(p)$layout$panel_params[[1]]$x$trans

# 计算适配文本的x轴最大范围
max_x <- max(df$x)
max_x_npc <- x_trans$transform(max_x)
# 扩展npc坐标，预留文本空间，0.8为调整系数可按需修改
new_max_npc <- max_x_npc + max(label_widths) * 0.8
new_max_x <- x_trans$inverse(new_max_npc)

# 应用动态计算的x轴范围
p + scale_x_continuous(limits = c(0, new_max_x))

方案3：条件切换文本位置（内外结合） #

根据条形长度，将短条形的文本放在外侧，长条形的文本放在内侧，避免超出边界，适合自定义需求较强的场景。

library(dplyr)
library(ggplot2)

df <- data.frame(x=c(1,10,100,1000,10000), nms = c("A","B","C","D","E"))

ggplot(df, aes(x=x, y=nms)) + 
  geom_bar(stat = "identity") + 
  geom_text(aes(label = x, 
                # 短条形（x<500）文本放外侧，长条形放内侧
                x = ifelse(x < 500, x + 50, x/2),
                hjust = ifelse(x < 500, 0, 0.5)), 
            vjust = 0.5, color = "gray")

可根据数据分布动态调整阈值，例如用quantile(df$x, 0.3)代替固定的500。

内容的提问来源于stack exchange，提问作者asd-tm