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,])
}