多页，每页有几个ggplot2图形和表格，来自几个数据框，每页是一个公因子的水平

library(ggplot2)

# 创建数据框
df1 <- data.frame(x = 1:10, y = rnorm(10))
df2 <- data.frame(x = 1:10, y = rnorm(10))
df3 <- data.frame(x = 1:10, y = rnorm(10))

# 创建图形和表格
plot1 <- ggplot(df1, aes(x, y)) + geom_point() + ggtitle("Plot 1")
table1 <- tableGrob(head(df1))

plot2 <- ggplot(df2, aes(x, y)) + geom_line() + ggtitle("Plot 2")
table2 <- tableGrob(head(df2))

plot3 <- ggplot(df3, aes(x, y)) + geom_bar(stat = "identity") + ggtitle("Plot 3")
table3 <- tableGrob(head(df3))

# 创建多页
multi_page <- ggplot() +
  theme_void() +
  theme(plot.margin = margin(1, 1, 1, 1, "cm")) +
  annotation_custom(grob = table1, xmin = 0.1, xmax = 0.9, ymin = 0.8, ymax = 1) +
  annotation_custom(grob = plot1, xmin = 0.1, xmax = 0.9, ymin = 0.2, ymax = 0.7) +
  annotation_custom(grob = table2, xmin = 0.1, xmax = 0.9, ymin = 0.8, ymax = 1) +
  annotation_custom(grob = plot2, xmin = 0.1, xmax = 0.9, ymin = 0.2, ymax = 0.7) +
  annotation_custom(grob = table3, xmin = 0.1, xmax = 0.9, ymin = 0.8, ymax = 1) +
  annotation_custom(grob = plot3, xmin = 0.1, xmax = 0.9, ymin = 0.2, ymax = 0.7)

# 输出多页
ggsave("multi_page.pdf", multi_page, width = 8, height = 10, units = "in")