如何将ggplots的列表列打印到pdf？

Question

考虑这个funny 示例

mydata <- data_frame(group = c('a', 'a', 'a', 'b', 'b', 'b'),
           x = c(1,2,3,5,6,7),
           y = c(3,5,6,4,3,2))

> mydata
# A tibble: 6 x 3
  group     x     y
  <chr> <dbl> <dbl>
1 a         1     3
2 a         2     5
3 a         3     6
4 b         5     4
5 b         6     3
6 b         7     2

在这里，我可以按组nest()，并将基于组的ggplot 存储到list-column 中。疯狂的事情。

> mydata %>% group_by(group) %>% 
+   nest() %>% 
+   mutate(myplot = map(data, ~ggplot(data = .x, aes(x = x, y = x)) + geom_point()))
# A tibble: 2 x 3
  group data             myplot  
  <chr> <list>           <list>  
1 a     <tibble [3 x 2]> <S3: gg>
2 b     <tibble [3 x 2]> <S3: gg>

但是，我想使用map 将这些图表中的每一个打印到一个pdf 中。也就是说，每组一个pdf 页面。

在这里，我不知所措。我怎样才能做到这一点？ 谢谢！

Answer 1

只需打开 pdf 设备并打印 :)

library(tidyverse)
mydata <- data_frame(group = c('a', 'a', 'a', 'b', 'b', 'b'),
                     x = c(1,2,3,5,6,7),
                     y = c(3,5,6,4,3,2))

mydata2 <- mydata %>% group_by(group) %>% 
  nest() %>% 
  mutate(myplot = map(data, ~ggplot(data = .x, aes(x = x, y = x)) + geom_point()))

pdf()
print(mydata2$myplot)
dev.off()

作为@aosmith cmets，如果您以交互方式使用R，则可以跳过打印调用，但请注意，如果稍后将其包装到函数中，它将不再起作用，因此我建议保持明确。

如果你想链接它：

pdf()
mydata %>% group_by(group) %>% 
  nest() %>% 
  mutate(myplot = map(data, ~ggplot(data = .x, aes(x = x, y = x)) + geom_point())) %>%
  pull(myplot) %>%
  print
dev.off()

pdf 的第一个参数是您打印文件的路径，默认为"Rplots.pdf"，因此它将在您的工作文件夹中。请参阅?pdf 了解更多信息。