R 在误差条中绘制百分位数

我有一个数据，它包含几个数据点，分别是以GB为单位的X值和以秒为单位的Y值。在这一组之下，它是平均值、最小值和最大值，以及百分位数5%和95%。这些值是在excel中计算的。我想在R中绘制这个图，类似于这个，但也有一个线图。我在R中创建了这个脚本，它绘制了一个折线图，现在我需要添加错误条。我完全不知道如何在R中绘制错误条。有什么帮助吗

1GB 2GB 4GB 8GB
225 173 695 498
332 187 310 1266
112 183 649 581
116 183 305 538
114 481 698 532
111 504 675 551
393 522 311 557
114 488 717 563
363 174 306 488
379 176 437 1348

Average 225.9   307.1   510.3   692.8619883782
Min 111 173 305 488.631612062
Max 393 522 717 1348.73486519
Percentile 95   386.7   513.9   708.45  1311.825555995
Percentile 5    111.45  173.45  305.45  493.2614168165

我的R脚本

add.error.bars <- function(X,Y,SE,w,col=1){
  X0 = X; Y0 = (Y-SE); X1 =X; Y1 = (Y+SE);
  arrows(X0, Y0, X1, Y1, code=3,angle=90,length=w,col=col);
}

X <- c(1,2,4,8)
meanrandom <- c(226, 307, 510, 693)

# Average
pdf(file="output.pdf") # output file
plot(X, meanrandom,xlab="Input data size (GB)", ylim=c(0,700),ylab="Makespan (seconds)", type="n", panel.first=grid(col="dimgray"))
lines(X,meanrandom,col="black",lty=1,type="o")
legend("topleft", 
       c("Random"),
       lty=c(1), # gives the legend appropriate symbols (lines)
       lwd=c(2.5),
       col=c("black"))
dev.off()

add.error.bar这就是答案。他们创建特殊的箭头来模拟错误条。
这就是答案。它们创建特殊的箭头来模拟错误条