R：在barplot中添加lines（）函数并使x值匹配

Question

我有一个barplot()，代码如下：

mp<-barplot(data.30.s$mean.rev,names.arg=data.30.s$dma.name, 
            main="Mean", ylab="Mean",las=2, cex.names=.5)
abline(h=mean(data.30.s$mean.rev))
lines(data.30.c$mean.rev,col=34)

data.30.s和data30.c具有相同的x值，只有Y值不同。我想绘制条形图上的线来进行比较。但是，x类别不匹配。

在这种情况下，我使用相同的数据集来查看这些线是否有效，但正如您所看到的那样，绘制的线x值不匹配。任何想法如何解决这个或做这个ggplot将不胜感激。我的ggplot代码是：

ggplot(data.30.s,aes(dma.name,mean.rev))+geom_bar(stat="identity")

但是X轴名称不起作用并且是乱码。

Answer 1

请改为：

lines(mp, data.30.c$mean.rev,col=34)

这应该起作用的原因是barplot返回绘制条形中点的x值。 Sio而不是像你一直尝试的那样使用lines参数的索引（隐式地），你现在将给出正确的x值以与条形对齐。