GGplot多个页面一遍又一遍地打印相同的第一个图

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了GGplot多个页面一遍又一遍地打印相同的第一个图相关的知识,希望对你有一定的参考价值。

我正在尝试制作多个图的pdf,但pdf只打印了前n个图。我正在使用ggforce :: facet_wrap_paginate。以下是我写的代码。如果有人对我为什么只得到前6个情节有任何建议,我会很高兴吗?我也尝试过使用PNG,但我遇到了同样的问题。当它完成后,我期待的PDF文件大约在20到30页之间(大约160个图)。所以你只能用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出现之前(这太棒了!)或者没有解决我的问题。提前谢谢了。

This question是我模拟我当前代码的那个。我希望我可以评论那个,但我没有声誉哈哈。

答案

问题只是你没有画每页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()

以上是关于GGplot多个页面一遍又一遍地打印相同的第一个图的主要内容,如果未能解决你的问题,请参考以下文章

命名管道未按预期工作。一遍又一遍地阅读相同的消息

一遍又一遍地运行相同的junit测试的简单方法?

Git Bash 卡在 diff / log 上,自发地一遍又一遍地重复相同的命令

试图将200个jpg文件转换为带有ImageMagick的mp4。一遍又一遍地接收相同的错误

为啥这不会一遍又一遍地返回一个新值?爪哇

如何装饰一个类的所有函数而不为每个方法一遍又一遍地键入它? [复制]