R语言ggplot2：如何让geom_bar条形上限超过ylim并截断过长条形

我懂你遇到的这个痛点——用geom_bar()绘图时，只要数据超过你设定的y轴范围，那些条形就会被当成缺失值直接移除，还弹出恼人的警告，完全不是你想要的"截断显示"效果。别担心，咱们换个思路就能搞定：先把超出上限的数据手动截断，再绘图，这样既能保留所有类别，又能让超出的条形在指定位置被"砍断"。

具体步骤如下： #

首先加载必要的包：

library(data.table)
library(ggplot2)

然后处理你的数据，把超过目标上限（比如你想要的1.5）的值替换成上限值，还可以加个标记列，方便后续给截断的条形做提示：

dt <- data.table(scenario = c("Scen1", "Scen2", "Scen3", "Scen4"), value = c(1, 2, 3, 4))
# 设定y轴的截断上限
y_upper <- 1.5
# 生成截断后的值：超过上限的用上限代替，否则保留原值
dt[, value_truncated := pmin(value, y_upper)]
# 标记哪些数据是被截断的
dt[, is_truncated := value > y_upper]

接下来绘图，我们可以给被截断的条形加个醒目的标记（比如红色的">1.5"），让用户知道这里的数据是被截断过的：

p <- ggplot(dt, aes(x = scenario, y = value_truncated)) +
  # 绘制基础条形图
  geom_bar(stat = "identity", position = "dodge", color = "black", fill = "steelblue") +
  # 给截断的条形添加提示标签
  geom_text(data = dt[is_truncated == TRUE], 
            aes(label = paste(">", y_upper, sep = "")), 
            vjust = -0.5, # 把标签放在条形顶部上方
            color = "red", fontface = "bold") +
  # 设置y轴范围，稍微比上限大一点（比如1.6），让标签能完整显示
  scale_y_continuous(name = "Y label", limits = c(0, 1.6)) +
  theme_minimal()

print(p)

为什么原来的方法不行？ #

你之前用scale_y_continuous(limits = yRange)的方式，ggplot会默认过滤掉所有不在这个范围内的数据行，所以那些值超过2的条形直接被移除了，才会出现"Removed 2 rows..."的警告。而我们先手动截断数据，相当于告诉ggplot："就用这个截断后的值绘图"，这样所有类别都能保留，超出的部分也会在你设定的上限位置被截断。

如果不需要提示标记，只保留截断效果的话，代码可以更简单：

dt[, value_truncated := pmin(value, 1.5)]
p <- ggplot(dt, aes(x = scenario, y = value_truncated)) +
  geom_bar(stat = "identity", position = "dodge", color = "black") +
  scale_y_continuous(name = "Y label", limits = c(0, 1.5))
print(p)

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