R语言ggplot2柱状图如何移除小于指定阈值的数值文本标签

直接在geom_text()的标签映射逻辑里加入阈值判断，让小于阈值的柱形对应标签为空值即可，不需要修改原始数据集。

针对你给出的示例，要移除数值为1和2的文本标注，可将阈值设置为10（可根据实际需求自行调整），修改后的可运行代码如下：

library(tidyverse)

df <- tibble(
  days = c(1, 1, 2, 2),
  type = c("v1", "v2", "v1", "v2"),
  values = c(100, 1, 2, 200)
)

# 自定义显示标签的数值阈值
label_threshold <- 10

plot <- df %>%
  ggplot(aes(days, values, fill = factor(type))) + 
  geom_bar(stat = 'identity', position = 'dodge') + 
  geom_text(
    # 核心判断逻辑：数值大于阈值才显示文本，否则返回空字符串
    aes(label = ifelse(values > label_threshold, values, "")),
    vjust = 1.6,
    color = "white",
    position = position_dodge(0.9),
    size = 3.5
  )

plot

补充说明 #

• 阈值label_threshold可按需调整，比如需要仅显示大于50的数值标签，直接将变量值修改为50即可
• 该判断逻辑支持扩展，除了数值大小判断，也可以添加分组、维度类的筛选规则，比如仅显示type为v1的标签、仅显示days为1的标签，都可以直接在ifelse里写入对应判断条件
• 空字符串标签不会引发布局错位，不需要调整原有柱状图的位置参数，分组dodge对齐逻辑和原代码完全一致

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