R 使用ggplot在pdf输出文件的单独页面上打印每个图形

我正在尝试使用lappy为我循环通过的每个文件使用ggplot包绘制3个图形

这是我的密码：

pdf("outfile.pdf")
lapply(files,function(x){
  a <- basename(x)
  a <- gsub("*_junc_with_type_genename_fpkm.txt","",a)
  d <- fread(x,drop=c(1:4,6,7))
  setnames(d, c("junc_counts", "TYPE","gene_name","sgd_name","fpkm"))

  p1 <- ggplot(...)
  p2 <- ggplot(...)
  p3 <- ggplot(...)
  grid.arrange(p1,p2,p3)
})
dev.off()

pdf（“outfile.pdf”）
lappy（文件，函数（x）{
grid.arrange（）

语句将三个图包装成一个图，这就是为什么每页有三个图。可能不是最漂亮的解决方案，但您可以使用另一个循环，以便为每个图打印一页：

library(ggplot2)

pdf("outfile.pdf")
lapply(1:5,function(x){
  p1 <- ggplot(cars, aes(dist, speed)) + geom_point()
  p2 <- ggplot(cars, aes(dist, speed)) + geom_path()
  p3 <- ggplot(cars, aes(speed, dist)) + geom_point(color='blue')

  # this loop so that pdf device creates a new page for each plot
  lapply(list(p1, p2, p3), function(plot) plot)
})
dev.off()

库（ggplot2）
pdf（“outfile.pdf”）
lappy（1:5，函数（x）{
p1