第二个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)

给出：