R绘图到多个页面的绘图列表

Question

我有一个列表的ggplot创建:

files_list <- list.files("file_directory")
sani_list <- list()
for (file in files_list){
df <- fread(paste0("file_directory,file))

cnames <- colnames(df[,4:10])
df$sex_id <- as.factor(df$sex_id)


for (i in cnames){
if (i == "sani_value"){
plot <- ggplot(df, aes_string(x=i, y=df$incidence, color=df$sex_id)) +
geom_point()+geom_smooth(method='loess', size=0.25)
sani_list <- c(sani_list,grob(plot))
}
}
}

总共有195个ggplot被创建并存储在一个列表中。什么是最好的方式，这些在多个页面，即。- 5页13个情节?由于

Answer 1

下面是一个例子，两个图被转储到pdf的单独页面。

library(tidyverse); library(grid)
p <- ggplot(iris %>% filter(Species == "setosa"), aes(Petal.Length, Petal.Width)) + geom_point()
q <- ggplot(iris %>% filter(Species == "versicolor"), aes(Petal.Length, Petal.Width)) + geom_point()
fig_list <- list()
fig_list <- c(fig_list, grob(p))
fig_list <- c(fig_list, grob(q))
pdf("test.pdf")
fig_list
dev.off()

很难复制你的问题，但希望这个例子能帮助你。