여러 플롯이있는 Figure에 대한 Figure Wide Axes 생성 (그리드)

Another answer using grid package. First create a grid of viewports, then at each iteration of creating the data just plot it. This maybe gives a bit more control over spacing.

library(lattice)
library(grid)

# Data
dat <- rnorm(1000, 0, 1)

# these are my parameters
scales <- c(0.1, 0.5, 1, 10, 15)
adds <- c(1, 2, 3, 4, 5)

Create grid layout - this lets you look at the plot grid: 6 by 6 with the first column and last row used for the additional parameter labels.

grid.show.layout(grid.layout(6, 6, 
                   widths = unit(c(2, rep(1,5)), c("lines", rep("null",5))) ,
                   heights = unit(c(rep(1,5),2), c(rep("null",5), "lines"))))

Start plot

grid.newpage()
pushViewport(viewport(layout=grid.layout(6, 6, 
                       widths = unit(c(2, rep(1,5)), c("lines", rep("null",5))) ,
                       heights = unit(c(rep(1,5),2), c(rep("null",5), "lines")))))

# generate data and plot
for (ii in 1:length(scales)) {

      for (jj in 1:length(adds)) {

           revData <- (dat * scales[ii]) + adds[jj]

           # plot (top to bottom / left to right)
           pushViewport(viewport(layout.pos.row=jj, layout.pos.col=ii+1))
           plot(xyplot(revData ~ 1:1000 , xlab=NULL , ylab=NULL) , newpage=FALSE)
           upViewport(1)
       }
    }

add "scales" labels to x-axis

pushViewport(viewport(layout.pos.row=6, layout.pos.col=2:6 ))
grid.text(scales, x=seq(0.1,0.9 ,length=5), y=0.8 , hjust=0.2, 
                            gp=gpar(col="red" , fontsize=14))
grid.text("Scales" , x=0.5 , y=0.3 ,  gp=gpar(fontsize=20)) 
grid.lines(y=1 , gp=gpar(col="red"))
upViewport(1)

add "adds" labels to y-axis

pushViewport(viewport(layout.pos.row=1:5, layout.pos.col=1 ))
grid.text(rev(adds),hjust=0.4 , x=0.8, y=seq(0.1,0.9 ,length=5), rot=90, 
                           gp=gpar(col="red" , fontsize=14))
grid.text("Adds" , x=0.3 , y=0.5 ,  rot=90, gp=gpar(fontsize=20)) 
grid.lines(x=1 , gp=gpar(col="red"))

EDIT

I added axis titles using grid.text and tweaking the x & y slightly. A better way would be to add another row and column to the grid and use this for the labels. An example grid is below - you will need to tweak another couple of things in the code but is not difficult.

grid.show.layout(grid.layout(7,7,
       widths = unit(c(2, 2,rep(1,5)), c("lines", "lines",rep("null",5))) ,
       heights = unit(c(rep(1,5),2,2), c(rep("null",5), "lines","lines"))))

축 제목에는 첫 번째 열과 마지막 행을, 축 레이블과 선에는 두 번째 열과 마지막 두 번째 행을 사용하여 나머지 그리드는 플롯에 사용할 수 있습니다.