在R中的单个pdf文档中保存多个ggplot？

是否有办法将所有

绘图

保存为单个

pdf

文档

library(tidyverse)
library(lubridate)

set.seed(123)

DF1 <- data.frame(Date = seq(as.Date("2001-01-01"), to= as.Date("2003-12-31"), by="day"),
                  A = runif(1095, 0,10),
                  D = runif(1095,5,15))
DF1 %>% pivot_longer(names_to = "Variable", values_to = "Value", -Date) %>% 
  ggplot(aes(x = Date, y = Value))+
  geom_line()+
  facet_wrap(~Variable)+
  ggsave("Plot1.pdf", dpi = 200, height = 6, width = 8)


DF2 <- data.frame(Date = seq(as.Date("2005-03-01"), to= as.Date("2005-05-31"), by="day"),
                  Z = runif(92, 0,10))

DF2 %>% ggplot(aes(x = Date, y = Z))+
  geom_line()+
  ggsave("Plot2.pdf", dpi = 200, height = 6, width = 8)

库（tidyverse）
图书馆（lubridate）
种子集（123）
DF1%pivot\u更长（名称到=“变量”，值到=“值”，-Date）%>%
ggplot（aes（x=日期，y=值））+
geom_线（）+
面包（~变量）+
ggsave（“Plot1.pdf”，dpi=200，高度=6，宽度=8）
DF2%ggplot（aes（x=日期，y=Z））+
geom_线（）+
ggsave（“Plot2.pdf”，dpi=200，高度=6，宽度=8）

对于您的数据，您可以保存绘图，然后使用

pdf

。如果有大量的绘图，最好创建一个包含这些绘图的列表并导出它们。这里是绘图的代码（您可以使用

pdf

的高度和宽度参数）：

库（tidyverse）
图书馆（lubridate）
种子集（123）
DF1%pivot\u更长（名称到=“变量”，值到=“值”，-Date）%>%
ggplot（aes（x=日期，y=值））+
geom_线（）+
面_包裹（~变量）->G1
DF2%ggplot（aes（x=日期，y=Z））+
几何线（）->G2
#出口
pdf（'Yourfile.pdf'，高度=6，宽度=8）
绘图（G1）
绘图（G2）
发展主任（）

library(tidyverse)
library(lubridate)

set.seed(123)

DF1 <- data.frame(Date = seq(as.Date("2001-01-01"), to= as.Date("2003-12-31"), by="day"),
                  A = runif(1095, 0,10),
                  D = runif(1095,5,15))
DF1 %>% pivot_longer(names_to = "Variable", values_to = "Value", -Date) %>% 
  ggplot(aes(x = Date, y = Value))+
  geom_line()+
  facet_wrap(~Variable) -> G1

DF2 <- data.frame(Date = seq(as.Date("2005-03-01"), to= as.Date("2005-05-31"), by="day"),
                  Z = runif(92, 0,10))

DF2 %>% ggplot(aes(x = Date, y = Z))+
  geom_line()->G2
#Export
pdf('Yourfile.pdf',height = 6, width = 8)
plot(G1)
plot(G2)
dev.off()