如何为knitr的include_graphics()设置默认外部图片格式（支持SVG、EMF）

要实现根据输出格式自动切换矢量图（SVG、EMF）和位图，核心思路是自定义一个替代include_graphics()的函数，让它根据当前输出格式优先匹配对应扩展名的图片文件，弥补原生auto_pdf仅支持PDF的局限。以下是具体实现：

步骤1：定义输出格式检测与智能导入函数 #

在R Markdown的setup代码块中，添加以下逻辑：

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)

# 检测当前输出格式
get_output_format <- function() {
  # 从knitr或rmarkdown元数据中获取输出类型
  fmt <- knitr::opts_knit$get("rmarkdown.pandoc.to")
  if (is.null(fmt)) {
    fmt <- names(rmarkdown::metadata$output)[1]
  }
  
  # 映射到简化的格式标识
  if (grepl("powerpoint|pptx", fmt)) return("pptx")
  if (grepl("html", fmt)) return("html")
  if (grepl("latex|pdf", fmt)) return("pdf")
  return("default")
}

# 自定义智能图片导入函数
smart_include_graphics <- function(path, alt = "", ...) {
  fmt <- get_output_format()
  base_path <- tools::file_path_sans_ext(path)
  original_ext <- tools::file_ext(path)
  
  # 按输出格式设置优先匹配的图片扩展名
  priority_ext <- switch(fmt,
                         pptx = "emf",   # PowerPoint优先用EMF矢量图
                         html = "svg",   # HTML优先用SVG矢量图
                         pdf = "pdf",    # PDF优先用PDF矢量图
                         original_ext)   # 默认用原文件格式
  
  priority_path <- paste0(base_path, ".", priority_ext)
  
  # 优先使用匹配格式的图片，不存在则回退到原文件
  if (file.exists(priority_path)) {
    knitr::include_graphics(priority_path, alt = alt, ...)
  } else {
    knitr::include_graphics(path, alt = alt, ...)
  }
}

## 步骤2：使用自定义函数导入外部图片
在需要插入外部图片的代码块中，替换`knitr::include_graphics()`为自定义的`smart_include_graphics()`：
```r
```{r test}
smart_include_graphics('external_figure.jpg')

## 效果说明
- 当输出为PowerPoint时，函数会先查找`external_figure.emf`，存在则使用该矢量图，否则回退到`external_figure.jpg`
- 输出为HTML时，优先查找`external_figure.svg`
- 输出为PDF时，优先查找`external_figure.pdf`
- 可根据需求扩展`priority_ext`的映射规则（比如Word输出也优先用EMF）

## 关于原生方案的补充
- 原生`include_graphics()`的`auto_pdf = TRUE`仅支持PDF格式，无法扩展到SVG/EMF
- pandoc的`-default-image-extension`选项对knitr生成的Markdown无效，因为knitr会在图片链接中明确指定扩展名

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