Rmarkdown动态生成标签页时ggplot失效但plotly正常问题求解

问题根因 #

• 现有obj_to_rmd函数未针对ggplot类型做特殊适配，ggplot属于延迟渲染对象，批量传入列表后统一渲染时，knitr会复用绘图设备缓存，导致所有标签页显示最后生成的ggplot结果
• plotly等htmlwidget类型对象为即时渲染，每次打印都会生成独立的资源片段，因此不会出现重复问题

修复后的obj_to_rmd函数 #

在原有逻辑基础上新增ggplot类型判断分支，给每个ggplot生成独立的代码块避免缓存冲突：

# 引入digest包生成唯一块名，也可替换为全局计数器实现
library(digest)

obj_to_rmd <- function(content_obj) {
  # 新增ggplot专属处理逻辑
  if (inherits(content_obj, "gg")) {
    # 基于ggplot内容生成唯一块名，避免knitr缓存复用
    unique_block_id <- paste0("gg_tab_", digest(content_obj, algo = "md5"))
    # 生成独立代码块，强制打印ggplot避免延迟渲染问题
    return(
      sprintf(
        "```{r %s, echo=FALSE, warning=FALSE, message=FALSE}
print(content_obj)
```",
        unique_block_id
      )
    )
  }
  
  # 原有其他类型处理逻辑保留（示例）
  if (inherits(content_obj, "htmlwidget")) {
    unique_block_id <- paste0("widget_tab_", digest(content_obj, algo = "md5"))
    return(
      sprintf(
        "```{r %s, echo=FALSE, warning=FALSE, message=FALSE}
print(content_obj)
```",
        unique_block_id
      )
    )
  }
  
  # 普通文本/表格等内容的原有处理
  return(as.character(content_obj))
}

无依赖替代方案 #

如果不想引入digest包，可以用全局递增计数器生成唯一块名：

# 定义全局计数器
.tab_block_counter <- 0

obj_to_rmd <- function(content_obj) {
  .tab_block_counter <<- .tab_block_counter + 1
  if (inherits(content_obj, "gg")) {
    return(
      sprintf(
        "```{r gg_tab_%s, echo=FALSE, warning=FALSE, message=FALSE}
print(content_obj)
```",
        .tab_block_counter
      )
    )
  }
  # 其他原有逻辑保持不变
}

修改完成后重新渲染Rmd文档，不同标签页的ggplot即可正常显示对应内容。

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