Question

我正在尝试针对单个条形图绘制多个线图（在此示例中它已分组但不一定是）但是我遇到了一些问题，左边的y轴以奇怪的方式调整大小。当有两条线时似乎没问题，但是当有更多线时，将轴伸出，这样刻度错误并且不与条形线对齐。

我最终需要在左右y轴上自定义标签的情况，因此在代码底部使用axis。在实际实现中，我将动态地使用'M'表示百万或'K'表示左边是千位，而'％'表示右边。

非常感谢任何帮助。

x = c("a","b","c","d") 
y= cbind(c(50,40,30,20), c(40,30,20,10)) 
y2 = c(0.80,0.65,0.75,0.50)
y3 = c(0.30,0.20,0.50,0.60)
y4 = c(0.20,0.30,0.40,0.45) 
#
par(mar=c(5,8,3,5))
bp <- barplot(t(y), beside=TRUE, las=1, names.arg=x, axes=TRUE, ylim=c(0,max(y)+10),         labels=c("0","10 M","20 M","30 M","40 M","50 M","60 M")) 
xlim <- c(floor(min(bp)), ceiling(max(bp))) 
# 
par(new=T) 
plot(colMeans(bp), y2, type="o", col="black", lwd=3, lty=1, xaxt="n", yaxt="n", xlab="",   ylab="", xlim = xlim) 
points(colMeans(bp), y2, pch=20)

par(new=T) 
plot(colMeans(bp), y3, type="o", col="red", lwd=3, lty=1, xaxt="n", yaxt="n", xlab="",   ylab="", xlim = xlim) 
points(colMeans(bp), y3, pch=20)

par(new=T) 
plot(colMeans(bp), y4, type="o", col="red", lwd=3, lty=1, xaxt="n", yaxt="n", xlab="", ylab="", xlim = xlim) 
points(colMeans(bp), y4, pch=20)

axis(side=2,  at=c(0,0.10,0.20,0.30,0.40,0.50,0.60), labels=c("0","10 M","20 M","30 M","40 M","50 M","60 M"), las=1, pos=0.555)
axis(side=4, pretty(c(0,max(y2))), ylim=c(0,max(y2)), col='black', ylab='', las=1 )

Answer 1

你可以在第二行和第三行使用lines()参数，一切正常。以下是第三行的示例：

#par(new=T) 
lines(colMeans(bp), y4, type="o", col="red", lwd=3, lty=1) 
points(colMeans(bp), y4, pch=20)

R绘制多个线图（3）对单条图

1 个答案: