R:将line()函数添加到条形图并获取匹配的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)

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