在R中的不同视口中绘制栅格数据

Question

我有两个光栅图像，想要使用视口在组合图中并排绘制它们。到目前为止，我设法绘制。

    pdf()
    # main panel :
    vp <- viewport(width = 0.9, height=0.9)
    pushViewport(vp)
    grid.rect(gp=gpar(lty="dashed"))

    #left panel
    vp1 <- viewport(x=0.25, y=0.5, width=0.2, height=0.5)
    pushViewport(vp1)
    r <- raster(ncol=40, nrow=20)
    r[] <- rnorm(n=ncell(r))
    print(plot(r),newpage=F)
    #print(p1,newpage=F)
    upViewport()

    # right panel
    vp2<-viewport(x=0.75, y=0.5, width=0.2, height=0.5)
    pushViewport(vp2)
    r <- raster(ncol=40, nrow=20)
    r[] <- rnorm(n=ncell(r))
    print(plot(r),newpage=F)
    upViewport()

    dev.off()

这不会导致一个具有2个栅格的地块。相反，我得到了3页的pdf。谁能帮助我了解viewport如何处理光栅图像？