Rmarkdown(Flexdashboard)循环渲染本地图片仅显示标签页无图问题

AI 小北

2026-9-25

问题成因

迭代对象错误：你预先将读取到的图片路径存入了变量list_plots，但循环语句中遍历的是未定义的plots变量，无法正确传入图片路径。
循环内输出未主动打印：在results="asis"属性的代码块中，顶层调用knitr::include_graphics()返回的图片标签会被自动写入输出流；但for循环内部的函数返回值默认不会自动打印，图片标签没有被写入生成的页面文件，因此无法显示。

修复方案

修正迭代对象的同时，手动打印knitr::include_graphics()的返回值即可，参考代码如下：

# 加载tools包用于处理文件名
library(tools)
# 替换为你的实际图片文件夹路径
plots_folder <- "./plots"
# 正则匹配.png后缀结尾的文件，匹配规则更严谨
list_plots <- list.files(plots_folder, pattern = "\\.png$", full.names = TRUE)

for (i in list_plots) {
  # 提取不带后缀的文件名作为标签页名称，避免标签重名
  tab_name <- file_path_sans_ext(basename(i))
  cat("  \n###", tab_name, "  \n")
  # 手动打印图片输出，将图片标签写入页面
  print(knitr::include_graphics(i))
  cat("  \n")
}