R：如何旋转副Y轴标签？{根据}

Question

我创建了辅助 Y 轴，并使用 在那里放置了一个标签mtext。但是，我不知道如何旋转我的辅助 Y 标签以面对绘图 - 就像我的红色 Y2 标签？

我的虚拟数据，采用自： http: //robjhyndman.com/hyndsight/r-graph-with-two-y-axes/

x <- 1:5
y1 <- rnorm(5)
y2 <- rnorm(5,20)
par(mar=c(5,4,4,5)+.1)
plot(x,y1,type="l",col="red")
par(new=TRUE)
plot(x, y2,,type="l",col="blue",xaxt="n",yaxt="n",xlab="",ylab="")
axis(4)
mtext("y2",side=4,line=3)
legend("topleft",col=c("red","blue"),lty=1,legend=c("y1","y2"))

结果：

我已经尝试过srt = ...，但las = ...它们都不起作用。

我不需要使用mtext，请问还有其他简单的解决方案吗？

谢谢 ！

Answer 1

使用text而不是mtext：

set.seed(1)
x <- 1:5
y1 <- rnorm(5)
y2 <- rnorm(5,20)
par(mar=c(5,4,4,5)+.1)
plot(x,y1,type="l",col="red")
par(new=TRUE)
plot(x, y2,,type="l",col="blue",xaxt="n",yaxt="n",xlab="",ylab="")
axis(4)
text(par("usr")[2]*1.11,mean(par("usr")[3:4]), "y2", srt = -90, xpd = TRUE, pos = 4)
legend("topleft",col=c("red","blue"),lty=1,legend=c("y1","y2"))

（通过）