將 R 中的多個 plot 循環保存到 pdf

Question

我有兩個不同的情節。 我想把它們放在一起，我用它們保存在 pdf 中。 但是，pdf 打不開。 我正在使用以下簡單的模板來保存 pdf 中的數字，你能幫我嗎？ 謝謝。

for(i in 1:4){

   par(mfrow=c(2, 1))
   # plot 1 
   layout(matrix(c(rep(1,6),rep(2,4)),nrow=2,ncol=5))

    plotModelFit(dataBlock,fit)
    plotMarginal(extract(fit,"beta[1]"),predictor="dataset age",col="blue")

    #plot 2
    plotModelFit(dataBlock,fit)
    plotMarginal(extract(fit,"beta[1]"),predictor="dataset age",col="blue")

    # save to pdf
    pdf(file=sprintf("/Users/test.pdf",responseVars[i]),width=10,height=6)
    dev.off()
    }

Answer 1

1. 您只需要par(mfrow=c(2, 1))和layout(matrix(c(rep(1,6),rep(2,4)),nrow=2,ncol=5)) 。

2. 您需要在par()或layout()之前調用pdf() ) 。

3. 您需要類似sprintf("/Users/test-%s.pdf",responseVars[i])的文件名。