打印图中的多个CorrPlot（R）

我正在使用corrplot，下面的示例可以在同一个图形中显示多个corrplot（R）。然而，我想保存到一个tiff文件，因为我与循环工作，我不知道如何实现这一点。请参阅下面的代码

我循环我的几个实验块（Block1，block2）并一个接一个地绘制corrplot。这很有效。我不明白如何直接转到tiff文件。特别是放在哪里

tiff（file='Figure4Plots.tiff'，width=12，height=12，units=“in”，res=300）和dev.off（）我在dflist和其他几个项目之后尝试过，但没有成功，谢谢

dflist<-c('Block1', 'Block2') 

par(mfrow=c(2,2))

for (i in seq_along(dflist)) {
#Subset different Blocks
dataCorr<- subset(total , (block == dflist[i] ))

p.mat <- cor.mtest(dataCorr)
M<-cor(dataCorr)

col <- colorRampPalette(c("#BB4444", "#EE9988", "#FFFFFF", "#77AADD", "#4477AA"))
corrplot(M, method="color", col=col(200),  
       type="upper",  title = title,
       addCoef.col = "black", # Add coefficient of correlation
       tl.col="red", tl.srt=45, #Text label color and rotation
       # Combine with significance
       p.mat = p.mat, sig.level = 0.05, insig = "blank", 
       diag=TRUE,
      mar=c(0,0,1,0) )}

---

dflist我没有您的原始数据，而且我不熟悉corrplot包，所以我制作了一些虚拟数据，只使用了一个简单的
plot（）
函数。除非
corrplot（）
函数有什么特别之处，否则您应该能够将大部分代码封装在
tiff（）
块中，如下所示：

dflist <- c('Block1', 'Block2', 'Block3', 'Block4') 

total <- data.frame(block=sample(dflist, size=100, replace=TRUE), x=runif(100), y=runif(100)*2)

tiff(file = 'Figure4Plots.tiff', width = 12, height = 12, units = "cm", res = 72)

    par(mfrow=c(2,2))

    for (thisBlock in dflist) {

        #Subset different Blocks
        dataCorr <- subset(total , (block == thisBlock ))
        dataCorr <- dataCorr[, c('x', 'y')]

        plot(dataCorr)
    }

dev.off()

dflist是否希望所有打印都显示在一个tiff文件中？什么不起作用？你有错误吗？谢谢！是的，我希望所有绘图都显示在一个tiff文件中，到目前为止，我的各种尝试只获得了一个tiff文件，其中包括一个。我没有您的原始数据，但请尝试下面回答中的代码，看看是否有帮助。