R：セカンダリY軸のラベルをどのように回転させるのですか？ {base}

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")) 

結果：

私はそれらのどちらも作業を行い、las = ...の、srt = ...を試してみました。

私はmtextを使用する必要はありませんが、別の簡単な解決策はありますか？

ありがとうございました！代わりにmtextの

Answer 1

使用text：

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")) 

（via）