如何从外部R脚本循环运行R Notebook并传递分组参数？

我需要为数据集中的32个分组（变量名为group）分别生成独立报告，同时还要生成一份包含所有分组的整体报告。目前我的R Notebook大致内容如下：

dat <- read_spss(...)

dat %>% ...
  ... %>%
  ggplot() %>%
  ggsave(here::here("image1_grp1.png"))

dat %>% ...
  ... %>%
  ggplot() %>%
  ggsave(here::here("image2_grp1.png"))

...

我的思路是在Notebook顶部添加数据集过滤逻辑：

dat <- read_spss(...) %>%
  filter(group == target_group)

同时用动态命名保存图片：

ggsave(here::here(paste0("image", target_group, "_2.png")))

但不知道怎么从外部R脚本循环调用这个Notebook，并且传递target_group参数。外部脚本的大致结构是：

groups <- unique(dat$group)

for(group in groups){
   # 这里怎么执行Notebook？
}

解决方案 #

核心是利用rmarkdown::render()函数的参数传递功能，实现外部脚本对Notebook的批量调用。

1. 修改R Notebook，支持接收外部参数 #

在Notebook的YAML头部添加参数定义，后续代码通过params$参数名调用传入的值：

---
title: "分组分析报告"
output: html_notebook
params:
  target_group: "all"  # 默认值设为"all"，对应全量报告
---

# 分组分析报告（分组：`r params$target_group`）

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(tidyverse)
library(here)
library(haven)

# 读取数据并根据参数过滤
dat <- read_spss(...)
if(params$target_group != "all"){
  dat <- dat %>% filter(group == params$target_group)
}

p1 <- dat %>% 
  # 你的数据处理与可视化逻辑
  ggplot(aes(x = ..., y = ...)) +
  geom_col()

# 动态命名保存图片
ggsave(here::here(paste0("image1_", params$target_group, ".png")), p1)

p2 <- dat %>% 
  # 你的数据处理与可视化逻辑
  ggplot(aes(x = ..., y = ...)) +
  geom_boxplot()

ggsave(here::here(paste0("image2_", params$target_group, ".png")), p2)

### 2. 编写外部循环脚本
在外部R脚本中，循环遍历所有分组，调用`render()`传递参数并生成对应报告，最后生成全量报告：
```r
library(rmarkdown)
library(tidyverse)
library(haven)
library(here)

# 读取数据获取所有分组
dat <- read_spss(...)
groups <- unique(dat$group)

# 循环生成每个分组的独立报告
for(grp in groups){
  render(
    input = here::here("你的Notebook文件名.Rmd"),  # 替换为你的Notebook实际路径
    output_file = here::here(paste0("分组报告_", grp, ".html")),
    params = list(target_group = grp)
  )
}

# 生成全量分组报告
render(
  input = here::here("你的Notebook文件名.Rmd"),
  output_file = here::here("全量分组报告.html"),
  params = list(target_group = "all")
)

关键注意事项 #

• render()的params参数可传递任意R对象，Notebook内通过params$参数名读取
• 图片和报告文件名均使用参数动态生成，避免文件覆盖
• 默认参数设为"all"，无需额外修改即可生成全量报告

内容的提问来源于stack exchange，提问作者D. Studer