如何旋转次要Y轴的标签?{基础}

3
我创建了第二个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"))

结果:

enter image description here

我尝试过srt = ...las = ...,但都不起作用。

我不一定需要使用mtext,请问是否有其他简单的解决方案?

谢谢!

1个回答

5

请使用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"))

(来源)

在此输入图片描述


这是一张图片,无法进行翻译。第一个链接是该内容的来源。

谢谢@lukeA!我真的希望有更多自动化的方法来做这件事... - maycca
不客气。也许还有另一种方式——让我们看看是否会有更多的答案。 - lukeA
哇,我很惊讶于刻度标签和轴标签朝相反方向的样子看起来是多么奇怪。 - Gregor Thomas

网页内容由stack overflow 提供, 点击上面的
可以查看英文原文,
原文链接