循环中画图提示文件损坏 | R

在循环中画图，用

pdf("a.pdf")
ggplot()
dev.off()

跑完之后，我总是会遇到文件已损坏的情况。解决方法：

pdf("a.pdf")
p <- ggplot()
plot(p)
dev.off()