打印带有标题和副标题的绘图列表（以 rmd 为单位）

问：

我有一个函数，我正在使用它来生成标题和副标题的情节和文本列表。我想遍历此列表以打印我的 .rmd 文件中的绘图。这是我拥有的代码：

plot_outputs <- my_function_to_make_lists(input1, input2)

plot_list <- plot_outputs
    plot_outputs <- lapply(names(plot_list), function(plot_name) {
      print(tagList(
        p(tags$strong(plot_list[[plot_name]]$table_text), plot_list[[plot_name]]$title, class = "subtitle"),  
        p(tags$em(plot_list[[plot_name]]$subtitle, class = "subtitle")),
        plot_list[[plot_name]]$plot,
        p(style = "margin-bottom: 75px;"),
      ))
    })

这在我的针织文档中打印了标题和副标题，但绘图没有打印。

该函数正在工作以生成绘图，并且在我运行时打印绘图：

plot_list[[1]]$plot  

但是，当我尝试打印列表时，它不起作用。任何想法或帮助将不胜感激。需要注意的是，我有非常相似的代码来表示可重复的标题/字幕列表，并且正在针织的 rmd 中打印。

谢谢！