在现有绘图中添加线标记

Question

我正在尝试在条形图上添加线条标记，但我不知道如何。

这是我想要实现的（添加了涂料的线条）：

到目前为止，我设法只画了情节，但我不知道如何添加线条。这是我的代码：

columnNames = names(myExcerpt)

for(i in length(myExcerpt)) 
{
   barplot(t(as.matrix(myExcerpt[i])), main=columnNames[i], xpd=F,
        ylim = range(pretty(c(min(myExcerpt[[i]]), myExcerpt[[i]]))))
}

有人可以帮我吗？