R语言：为柱状图前10大数值条形添加标签并优化显示

核心思路 #

先从数据集中筛选出variable数值最大的10条记录，再基于这个子集单独添加标签，同时通过排序、位置调整或第三方工具解决标签居中与重叠问题。

步骤示例 #

1. 加载依赖包并模拟数据集

library(ggplot2)
library(dplyr)

# 生成模拟数据（100条记录，name为Item_1到Item_100，variable为正随机数）
set.seed(123)
df <- tibble(
  name = paste0("Item_", 1:100),
  variable = abs(rnorm(100, mean = 50, sd = 20))
)

2. 绘制基础柱状图（按数值降序排列）

先把条形按variable从大到小排序，让前10条集中在左侧，方便标签布局，同时隐藏默认x轴标签避免拥挤：

p <- ggplot(df, aes(x = reorder(name, -variable), y = variable)) +
  geom_col(fill = "#2E86AB") +
  labs(x = "名称", y = "数值", title = "仅标注前10大数值的柱状图") +
  theme(
    axis.text.x = element_blank(),
    axis.ticks.x = element_blank(),
    plot.title = element_text(hjust = 0.5)
  )

3. 筛选前10大数值的子集

top10_df <- df %>% 
  arrange(desc(variable)) %>% 
  slice(1:10)

4. 添加标签（两种方案解决居中与重叠）

方案1：ggplot原生实现（手动调整）

通过设置hjust=0.5保证标签居中，调整y轴偏移量让标签位于条形上方，避免与条形重叠：

p + geom_text(
  data = top10_df,
  aes(label = name),
  y = top10_df$variable + 2, # 标签在条形上方2个单位处
  hjust = 0.5,
  size = 3,
  color = "#333333"
)

方案2：用ggrepel自动解决重叠（推荐）

如果前10条数值差距小导致标签拥挤，用ggrepel包的geom_text_repel可以自动调整标签位置，避免重叠：

library(ggrepel)

p + geom_text_repel(
  data = top10_df,
  aes(label = name),
  y = top10_df$variable + 1,
  hjust = 0.5,
  size = 3,
  color = "#333333",
  box.padding = 0.3, # 标签与条形的最小间距
  point.padding = 0.5 # 标签与数据点的最小间距
)

关键注意事项 #

• 必须基于筛选后的top10子集添加标签，不能直接用原数据集，否则会给所有条形加标签
• 用reorder(name, -variable)排序是关键，让高数值条形集中，减少标签分散导致的重叠
• 若不需要隐藏全部x轴标签，可仅保留前10条的x轴标签，但会增加布局复杂度

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