Просто откройте устройство 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 вы можете пропустить вызов печати, если вы используете 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
.