r语言 - GGplot 多个页面一遍又一遍地打印相同的第一个绘图

Question

我正在尝试制作多个绘图的pdf，但pdf只打印前n个绘图。我正在使用ggforce：：facet_wrap_paginate。下面是我编写的代码。如果有人对为什么我只得到前 6 个情节有任何建议，我会很感激？我也使用 PNG 尝试过这个，但我遇到了同样的问题。完成后，我期待 20-30 页(约 160 个绘图)的 pdf。所以你可以理解我只有 6 个情节的挫败感......

pg <- ceiling(
length(levels(Tidy$Region)) / 6
)
pdf("attempt3001.pdf")
for(i in seq_len(pg)){
print(ggplot(Tidy, aes(x=Year, y=Value / 1000, group=Country, color=Status))+
geom_line()+
theme_classic()+
facet_wrap_paginate(~Region, nrow = 3, ncol = 2, page = 1, scales = "free"))
}
dev.off()

我在堆栈上看到过类似的问题，但它们是在facet_wrap_paginate出现之前(这太神奇了！)或者没有解决我的问题。提前非常感谢。

这个问题是我模仿当前代码的问题。我希望我能对此发表评论，但我没有名声哈哈。

Answer 1

问题很简单，你没有画每一页i，而只画第一页。将代码中的page = 1替换为page = i。

pg <- ceiling(
length(levels(Tidy$Region)) / 6
)
pdf("attempt3001.pdf")
for(i in seq_len(pg)){
print(ggplot(Tidy, aes(x=Year, y=Value / 1000, group=Country, color=Status)) +
geom_line() +
theme_classic() +
facet_wrap_paginate(~Region, nrow = 3, ncol = 2, page = i, scales = "free"))
}
dev.off()