gpt4 book ai didi

r - 生成 ggplot 网格的多页 pdf 文件

转载 作者:行者123 更新时间:2023-12-02 10:01:22 24 4
gpt4 key购买 nike

我正在尝试从 ggplots 列表中生成 ggplots 网格的多页 pdf。我尝试了很多方法来做到这一点,但都没有成功。这是与我一直在使用的可重复的等效内容:

library(ggplot2)

# generate a data frame w same structure as the one I'm working with
time <- c(1:10)
veclist <- list()
veclist[[1]] <- time

for (i in 2:25){
veclist[[i]] <- as.vector(c(runif(10,-2,2)))
}

d <- as.data.frame(do.call(rbind, veclist))
d <- as.data.frame(t(d))

colnames(d)[1] <- "time"
for (i in 2:length(d)){
colnames(d)[i] <- paste("name",i,sep=" ")
}

# for a common axis
numericvalues <- d[,2:length(d)]

# generate plot(s)

name_list = paste("`",names(d),"`",sep="")

plot_list = list()
for (i in 2:length(d)) {
p = ggplot(d, aes_string(x=name_list[[1]], y=name_list[[i]])) +
geom_point() +
labs(x="time",title=paste(strwrap(names(d[i]), width = 30),collapse = "\n")) +
theme(plot.title = element_text(size=10,hjust = 0.5),axis.text.x=element_text(size=6)) +
coord_cartesian(ylim = c(min(numericvalues, na.rm = TRUE), max(numericvalues, na.rm = TRUE)))
plot_list[[i]] = p
}

我正在寻找的内容会在plot_list中生成多页pdf网格图(理想情况下每页有3列,4行图)。

我尝试过的一些事情:

pdf("test.pdf")
do.call("marrangeGrob",c(plot_list,ncol=3,nrow=2))

生成无法读取的 pdf 文件。

pdf("test.pdf")
do.call("grid.arrange",c(plot_list))

仅返回“gList”错误中允许的“grobs”。

最佳答案

这会产生多页布局:

library(gridExtra)
...
plot_list = list()
for (i in 2:length(d)) {
p = ggplot(...)
plot_list[[i]] = ggplotGrob(p)
}
class(plot_list) <- c("arrangelist", class(plot_list))
ggsave("multipage.pdf", plot_list)

关于r - 生成 ggplot 网格的多页 pdf 文件,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/47007642/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com