无法在 R 中编写 pdf

Question

我尝试将 ggplot 保存在我的 wd 中的 pdf 中。 pdf 文件已创建但不包含任何内容。这是我所拥有的：

pdf("enrich_prof_eu.pdf",height = 7,width =10)
par(mfrow=c(1,2),mar=c(4, 4.1, 5.5, 1) + 
0.1,mgp=c(2.1,0.7,0),cex.axis=1.2,pch=3)

for (i in el){
df=data.frame(horizon = c("h1", "h2", "h3", "h4"), val =yeubis[,i])
ggplot(df, aes(x=val,y=horizon)) +
geom_point() +
geom_segment(aes(x=df$val[1], y=df$horizon[1], xend=df$val[2], 
yend=df$horizon[2])) +
geom_segment(aes(x=df$val[2], y=df$horizon[2], xend=df$val[3], 
yend=df$horizon[3])) +
geom_segment(aes(x=df$val[3], y=df$horizon[3], xend=df$val[4], 
yend=df$horizon[4])) +
scale_y_discrete(limits = rev(levels(df$horizon)))+
scale_x_continuous(position = "top") +
labs(x=paste(i,"[ppm]"))
}
dev.off()

循环和 ggplot 正在工作。我没有任何错误信息。但是我仍然无法打开pdf，因为里面没有写任何东西？

感谢您的帮助！

Answer 1

不要将pdf() 和dev.off() 与ggplot2 一起使用。使用ggsave()

ggplot(data = df, aes(x, y)) + geom_segment(...)
ggsave("enrich_prof_eu.pdf")

有关更多选项，例如输出尺寸、单位等，请参阅?ggsave。

编辑

响应您的评论，将ggsave() 放在for() 循环中，并每次将绘图保存为不同的文件名。例如：

for (i in seq_along(variables)) {
  ggplot(df, aes(x, y)) + geom_segment(...)
  ggsave(paste0("enrich_prof_eu_", i, ".pdf"))
}

这会将迭代编号粘贴到文件名中，因此不会每次都覆盖同一个文件。