使用 ggsave() 为 ggplot2 对象插入动态节标题，而不使用 markdown

Question

我正在尝试查看是否可以使用 ggsave 生成 pdf，以便在生成的 pdf 中包含节标题。在下面的示例代码中，我有两个图，plot_a 和plot_b，保存在一个列表中，然后使用 pdf 将其导出为 pdf。

list_objects <- c()

plot_a <- ggplot(data = mtcars, aes(x = mpg, y = drat))+
  geom_line()

list_objects[[1]] <- plot_a

plot_b <- ggplot(data = mtcars, aes(x = mpg, y = wt))+
  geom_line()

list_objects[[2]] <- plot_b

ggsave(
  filename = "Test.pdf",
  device = "pdf",
  plot = gridExtra::marrangeGrob(plot_object, nrow=1, ncol=1, top = NULL),
  width = 11, height = 11
)

如果我打开 pdf，导航窗格为空（请参见下面的屏幕截图）。有没有办法为每个绘图添加标题，以便它们出现在导航窗格中？

Answer 1

当

plot_object

切换为

list_objects

时，我得到了下面的导航窗格，以及上面的代码。

library(tidyverse)
library(gridExtra)

plot_a <- ggplot(data = mtcars, aes(x = mpg, y = drat))+
  geom_line()

plot_b <- ggplot(data = mtcars, aes(x = mpg, y = wt))+
  geom_line()

lst <- list(plot_a, plot_b)

ggsave(
  filename = "test.pdf",
  plot = marrangeGrob(lst, nrow = 1, ncol = 1),
  width = 11, height = 11
)

^{创建于 2024-04-26，使用 reprex v2.1.0}