添加多圖軸

Question

爲了產生具有多條曲線的佈局，我有以下一些虛設地塊代碼：

jpeg("/path/to/file",height=10000,width=5000) 
plot.new() 
par(mar=c(2,2,1,1), oma=c(2,4,0,0), xpd=NA) 

for (i in 1:10) { 

    par(mar=c(2,2,1,1),fig=c(0, 0.5, (10-i)/10, (11-i)/10), new=T)  
    matplot(rnorm(20)*sample(100,1),           
     col="blue",axes=F,type="l",lwd=10, xlab="",ylab="") 

    par(mar=c(2,2,1,1),fig=c(0.5, 1, (10-i)/10, (11-i)/10), new=T)  
    matplot(rnorm(20)*sample(100,1),           
     col="red",axes=F,type="l",lwd=10, xlab="",ylab="")  
} 
dev.off() 

我想在遠LHS和添加的垂直線/軸的遠遠RHS跨越列中的所有10個地塊。由於我將使用這條線作爲軸，我需要能夠添加刻度和標籤。

Answer 1

您可以通過?axis或?Axis來繪製座標軸。要將座標軸跨越多個座標圖，必須重置座標系usr。

請在下面找到一個基地的圖形解決方案：

## store number of rows 
nRow <- 10 

## your example code 
## (only the number "10" is replaced by nRow and oma is adapted) 
plot.new() 

par(mar=c(2, 2, 1, 1), oma=c(2, 4, 0, 4), xpd=NA) 

for (i in 1:nRow) { 

    par(mar=c(2, 2, 1, 1), fig=c(0, 0.5, (nRow-i)/nRow, ((nRow+1)-i)/nRow), new=TRUE)  
    matplot(rnorm(20)*sample(100, 1),           
      col="blue", axes=F, type="l", lwd=10, xlab="", ylab="") 

    par(mar=c(2, 2, 1, 1), fig=c(0.5, 1, (nRow-i)/nRow, ((nRow+1)-i)/nRow), new=TRUE) 
    matplot(rnorm(20)*sample(100, 1),           
      col="red", axes=F, type="l", lwd=10, xlab="", ylab="")  
} 

## define new user coordinates 
usr <- c(0, 1, 0, 1) ## x1, x2, y1, y2 

## calculate tick positons 
## in general: (usr[3]+(diff(usr[3:4])/(nRow-1))*0:(nRow-1)) 
## but our usecase is much easier: 
ticksAt <- 1/(nRow-1)*0:(nRow-1) 

## choose left column and reset user plotting area (usr) 
par(mar=c(2, 2, 1, 1), fig=c(0, 0.5, 0, 1), usr=usr, new=TRUE) 
## draw axis; see ?Axis for details 
Axis(side=2, at=ticksAt, labels=as.character(1:(nRow)), line=0.5) 

## choose right column and reset user plotting area (usr, not needed because already done) 
par(mar=c(2, 2, 1, 1), fig=c(0.5, 1, 0, 1), usr=usr, new=TRUE) 
## draw axis; see ?Axis for details 
Axis(side=4, at=ticksAt, labels=as.character((nRow+1):(2*nRow)), line=0.5) 

Answer 2

您可以對整個設備進行一次總體繪圖，在那裏添加座標軸，然後使用subplot函數（TeachingDemos包）在大圖中繪製座標圖。