第二個Y軸ylab的位置

我想畫一個雙Y軸圖表，但是當我命名右邊的Y軸名稱時，名稱不能在右邊繪製，而是放在左邊Y軸的標籤上，應該怎樣我做？第二個Y軸ylab的位置

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

如果你運行這段代碼

，兩個標籤「來」和「WSO」會扎堆，如何繪製WSO右側？謝謝大家

來源

2013-03-31 TOPMAD

我們*不*運行你的代碼，因爲我們沒有數據。你能否提供一些我們可以嘗試的正確形式的虛擬數據？ –

非常感謝，我已經用加文的想法解決了這個問題。我沒有上傳數據的原因是我只想知道Ylab，沒有數據就可以了，最後再次感謝你 – TOPMAD

一種選擇是使用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)

這給：

enter image description here

來源

2013-03-31 14:13:26

第二個Y軸ylab的位置

回答

相關問題