如何在 R 中创建具有自定义分位数的箱线图？

我现在正在处理一些数据，我想制作一个箱线图，显示最小值、2.5、25、50、70、75、97.5 和最大值。箱线图还应该有一个图例，显示不同颜色的线条来代表每个分位数。有什么办法可以做到这一点吗？谢谢你的帮助。

set.seed(123)
Mydata = sample(x=100:300, size = 500, replace = T)
Mydata = c(Mydata, 1, 500)
boxplot(Mydata)

PS. I have tried the code provided by @thelatemail, but get a totally different figure in RStudio. Any solution to this? Thanks.

只需继续使用过度绘制即可bxp:

set.seed(123)
Mydata = sample(x=100:300, size = 500, replace = T)
Mydata = c(Mydata, 1, 500)

bp <- boxplot(Mydata, range=0, plot=FALSE)

vals <- c(
  min=min(Mydata),
  quantile(Mydata, c(0.025, 0.25, 0.5, 0.7, 0.75, 0.975)),
  max=max(Mydata)
)

bxp(bp, whisklty=0, staplelty=0)
bp$stats[2:4,] <- c(vals[2], Inf, vals[5])
bxp(bp, whisklty=0, staplelty=0, add=TRUE)
bp$stats[2:4,] <- c(vals[2], Inf, vals[7])
bxp(bp, whisklty=1, staplelty=1, add=TRUE)