R 将循环输出打印为pdf-生成空页

我曾多次使用pdf（“file.pdf”）和dev.off（）在R中保存绘图，但现在我遇到了一个非常奇怪的问题，我甚至不知道它是从哪里来的

我有一些示例代码用于演示：

m <- matrix(rnorm(6),6,9)
data <- data.frame(m)
rownames(m)<- c("20180_T0105", "20180_T0104", "20180_T02808", "01804_T80485", "01808_T80438", "80385_T44248")
colnames(m) <- c(1:9)
K=9

pdf("OutlierScreen.pdf")
par(mfrow=c(2,round(K/2)))
for(c in 2:K) {
  print(plot(data[,1],data[,c],xlab="O-1", ylab=paste("O-",c,sep="")))
}
dev.off()

---

嗨，我无法重现这个问题（我也在Linux下运行R）。您能否提供指令的结果

sessionInfo（）

？另外，为什么要在

for

循环中添加

print（）

指令？简单地使用

绘图

就足够了。这可能是一个解释。嗨，谢谢你的回答！我添加了打印，因为我在提问之前在网上搜索了是否可以找到这个问题的答案，有人写道，如果将for循环与pdf一起使用，则需要添加打印（我以前只尝试过plot，同样的问题）。嗨，我无法重现这个问题（我还在Linux下运行R）。您能否提供指令的结果

sessionInfo（）

？另外，为什么要在

for

循环中添加

print（）

指令？简单地使用

绘图

就足够了。这可能是一个解释。嗨，谢谢你的回答！我添加了打印，因为我在提问之前在网上搜索了是否可以找到这个问题的答案，有人写道，如果将for循环与pdf一起使用，则需要添加打印（我以前只尝试了plot，同样的问题）。

plist <- list()
par(mfrow=c(2,round(K/2)))
for(c in 2:K) {
  p<- plot(data[,1],data[,c],xlab="O-1", ylab=paste("O-",c,sep=""))
  plist[[c]] <-p
}