如何在Rmarkdown中编写可复现的自动更新注释？

方法1：在代码输出中生成动态注释 #

这种方法通过R代码计算均值后，输出带实时数值的注释行，适合运行代码时展示当前数据的统计结果：

# 读入示例数据集
df <- data.frame(
  age = c(39, 50, 38, 53),
  fnlwgt = c(77516, 83311, 215646, 234721),
  education_num = c(13, 13, 9, 7)
)

# 计算年龄均值
avg_age <- mean(df$age)

# 生成动态注释并输出
cat(sprintf("# The average age is %.2f\n", avg_age))

# 后续分析示例
summary(df$age)

编译Rmarkdown后，代码块输出会显示# The average age is 45.00，修改df$age的数值后，注释里的均值会自动更新。

方法2：让代码块中的注释行本身动态更新 #

如果需要让代码块里的注释行（代码的一部分）自动更新数值，可使用knitr的knit_expand函数生成动态代码内容：

```{r, code=knit_expand(text='
df <- data.frame(
  age = c(39, 50, 38, 53),
  fnlwgt = c(77516, 83311, 215646, 234721),
  education_num = c(13, 13, 9, 7)
)

avg_age <- mean(df$age)
# The average age is {{round(avg_age, 2)}}
')}

编译后，代码块里的注释行会自动替换为`# The average age is 45.00`，修改数据集的`age`值后重新编译，注释里的数值会同步更新。

### 补充说明
- 方法1适合在运行代码时展示实时统计结果，注释出现在代码输出中；
- 方法2适合让代码本身的注释保持实时性，注释作为代码的一部分显示在文档里；
- 可调整`round()`的参数控制小数位数，比如`round(avg_age, 0)`会显示整数结果。

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