如何在循环生成Markdown报告时匹配标题与对应作者？

嘿，我懂你现在的困扰——已经能通过循环生成带课程名标题的报告，但就是没法把每个课程和对应的讲师（作者）对应上对吧？其实核心问题是你之前只循环了单独的课程名，没把课程和讲师的配对信息绑定起来。下面给你一套完整的实现方案：

1. 先整理唯一的课程-讲师配对数据集 #

首先得从你的数据里提取出不重复的课程-讲师组合，避免生成重复报告，同时确保每个课程都能关联到对应的讲师：

# 用base R的方式清理数据，得到唯一配对
unique_course_instructors <- unique(na.omit(data[, c("NAME_OF_THE_COURSE", "INSTRUCTOR_NAME")]))

# 如果你的数据有一个课程对应多个讲师的情况，用dplyr合并讲师列表（需要先加载dplyr包）
# library(dplyr)
# unique_course_instructors <- data %>%
#   filter(!is.na(NAME_OF_THE_COURSE)) %>%
#   group_by(NAME_OF_THE_COURSE) %>%
#   summarize(INSTRUCTOR_NAME = paste(unique(INSTRUCTOR_NAME), collapse = ", ")) %>%
#   ungroup()

2. 循环配对数据集，同时传入标题和作者参数 #

现在不要单独循环课程名，而是循环整理好的配对数据集，这样每次迭代都能同时拿到当前课程的名称和对应的讲师：

# 遍历每个课程-讲师组合
for (row_idx in seq(nrow(unique_course_instructors))) {
  # 获取当前循环的课程名和讲师名
  current_course <- unique_course_instructors$NAME_OF_THE_COURSE[row_idx]
  current_instructor <- unique_course_instructors$INSTRUCTOR_NAME[row_idx]
  
  # 渲染Markdown报告，传入两个参数
  rmarkdown::render(
    input = "LOCATION_WHATEVER.Rmd",  # 你的Rmd模板路径
    params = list(
      report_title = current_course,
      report_author = current_instructor
    ),
    # 给每个报告生成唯一的文件名，防止覆盖
    output_file = paste0("Course_Report_", gsub(" ", "_", current_course), ".html")
  )
}

3. 在Rmd模板中接收参数并应用到标题和作者 #

最后要在你的Rmd模板的YAML头部定义参数，这样才能把传进来的标题和作者渲染到报告里：

---
title: "`r params$report_title`"
author: "`r params$report_author`"
output: html_document
params:
  report_title: "默认课程标题"  # 设置默认值，防止参数未传入时报错
  report_author: "默认讲师"
---

这样一来，每次循环生成的报告都会自动匹配对应课程的标题和讲师作者啦！如果还有特殊情况（比如一个课程对应多个讲师需要分开生成报告），可以再调整配对数据集的整理逻辑~

内容的提问来源于stack exchange，提问作者Alberto Stefanelli