r - 第二个Y轴ylab的位置

Question

我想画一个双Y轴图表，但是当我命名右边Y轴名字的时候，右边不能画名字，而是放在左边Y轴的标签上，怎么办？

plot(1:length(S285$LAI),S285$LAI,axes=F,type="o",pch=1,xlim=c(1,length(S285$LAI)),ylim=c(0,6),xlab="",ylab="LAI",cex.lab=1.5)
axis(side=1,kk1,S285$DAY[kk1])
axis(side=2,seq(0,5,1),seq(0,5,1))
par(new=T)
plot(1:length(S285$LAI),S285$WSO,axes=F,type="o",pch=15,xlim=c(1,length(S285$LAI)),ylim=c(0,10000),xlab="",ylab="WSO")
axis(side=1,kk1,S285$DAY[kk1])
axis(side=4,seq(0,10000,1000),seq(0,10000,1000))
mtext("DOY285播种",side=3,line=-3.5,at=15)
legend(x=1,y=6000,legend=c("LAI","产量"),pch=c(1,15),cex=1.1,lty=c(1,1))

如果你运行这段代码，“LAI”和“WSO”这两个标签会聚在一起，如何将WSO绘制到右侧？谢谢你们

Answer 1

一种选择是使用mtext：

op <- par(mar = c(5,4,4,4) + 0.1)
plot(1:10, ylab = "ylabel")
axis(side = 4)
mtext("ylabel 2", side = 4, line = 3, cex = par("cex.lab"))
par(op)

这使：