如何为箱线图添加分位数线与文本？解决代码报错及文本不显示问题

嘿，这个问题我踩过类似的坑！你碰到的non-numeric argument to binary operator错误，核心原因是把R基础绘图系统的函数和ggplot2的管道语法（+）混着用了——boxplot()是基础包的绘图函数，它生成的不是ggplot对象，根本没法用+来追加后续的abline()和text()，这就是报错的根源。而且你的text()还缺了关键的x参数，就算语法对了也可能看不到文本。

下面给你两种可行的解决方案，按需选择：

方案一：纯基础绘图写法（不用+，逐句执行） #

基础绘图是“画图后追加元素”的逻辑，直接依次调用函数就行，不用+连接。记得给text()指定x位置，不然文本会默认在x=0的位置，对数轴下大概率看不到：

# 先构造测试数据（你可以替换成自己的x）
set.seed(123)
x <- rlnorm(100, meanlog = 0, sdlog = 1)

# 正确的基础绘图流程
boxplot(x[x>0], log = "y")
abline(h = quantile(x, 0.85), col = 'red')
# 指定x=1.2让文本显示在箱线图右侧，同时把数值四舍五入更美观
text(x = 1.2, y = quantile(x, 0.95), labels = round(quantile(x, 0.95), 2), col = 'red')

方案二：用ggplot2语法（习惯ggplot的话更灵活） #

如果你偏好ggplot2的图层式语法，就把整个绘图流程都用ggplot来实现，这样就能合法使用+了：

library(ggplot2)

# 先把数据整理成ggplot要求的数据框格式
df <- data.frame(value = x[x>0])

ggplot(df, aes(y = value)) +
  geom_boxplot() +
  scale_y_log10() +  # 对应原来的log="y"参数
  geom_hline(yintercept = quantile(x, 0.85), color = 'red') +
  # 同样指定x位置，把分位数数值四舍五入
  geom_text(aes(x = 1.2, y = quantile(x, 0.95), label = round(quantile(x, 0.95), 2)), color = 'red') +
  theme_minimal()  # 可选的美化主题

这两种方法都能帮你正确画出85%分位数的红线，以及95%分位数的文本标注，选你用着顺手的就行~

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