0

グリッドで指定されたレイアウトで 4 つの領域内に R プロットを作成したいと思います。さらに、基本グラフィックスを使用して領域に実際にプロットするには、gridBase を使用する必要があります。以下は例です。問題は、4 つのプロットが 4 つの異なる領域にプロットされておらず、むしろ重なり合っていることです。

require(grid)
require(gridBase)

## set up the grid layout
gl <- grid.layout(2, 2, widths=unit(c(3, 3), "inches"),
          heights=unit(c(3, 3), "inches"))
pushViewport(viewport(layout=gl)) # use this layout in a viewport

## plot
par. <- par(no.readonly=TRUE) # save plot settings
vps <- baseViewports() # create list of grid viewports corresponding to inner, figure, and plot regions
pushViewport(vps$inner, vps$figure, vps$plot)
for(i in 1:2) { # rows
    for(j in 1:2) { # columns
        pushViewport(viewport(layout.pos.row=i, layout.pos.col=j))
        par(plt=gridPLT(), new=TRUE)
        x <- 1:10
        plot(x, x+runif(10), type="b")
        upViewport()
    }
}
par(par.) # reset plot settings
4

1 に答える 1

0

これはうまくいくようです：

require(grid)
require(gridBase)

gl <- grid.layout(2, 2, widths=unit(c(3, 3), "inches"),
          heights=unit(c(3, 3), "inches"))
pushViewport(viewport(layout=gl))

par. <- par(no.readonly=TRUE)
for(i in 1:2) {
    for(j in 1:2) {
        pushViewport(viewport(layout.pos.row=i, layout.pos.col=j))
        par(plt=gridPLT())
        x <- 1:10
        plot(x, x+runif(10), type="b", xlab="", ylab="")
        par(new=TRUE) # to be run after first plot
        upViewport()
    }
}
par(par.)
于 2012-09-23T20:19:49.130 に答える