barplot 绘制额外的条形图

Question

我是 R 的新手，所以我希望你能帮我解决一个简单的问题。在 R 的条形图中，我想在代表 x 轴上不同类别（代表预期值）的条形顶部添加水平线。预期值因类别而异。这是我的脚本的一小部分。

nem=c(0,1,2,3,4,5,6)
fish=c(103,72,44,13,3,1,1)
table=data.frame(nem,fish)
ticks=seq(1,6,1)
graph=barplot(fish,las=2,ylim=c(0,120),main="Number of nematodes per fish")
axis(1,at=graph,labels=c(0,1,2,3,4,5,6))

希望你能帮帮我！

Image of barplot

Answer 1

希望对您有所帮助 - 只需将这些行放在您的代码下方即可。

linelength <- c(10,20,12,50,12,14,21)

xl <- seq(from=0.7, by=1.2, along.with = fish) 
yl <- cbind(fish, fish + linelength)

for(z in 1:length(fish)){
  lines(x=rep(xl[z], 2), y=yl[z,])
}