RMarkdown调用R函数输出多图时如何去除冗余标注仅保留实际图表？

冗余文本的产生原因 #

当前输出附带"Plot 1""Plot 2"文本，本质是两个逻辑共同导致的：

• 函数返回值结构不符合RMarkdown的图形识别规则：现有返回语句里把plot()调用的结果放进列表返回，而基础绘图系统的plot()本身不会返回可复用的图形对象，只会返回不可见的参数值。RMarkdown渲染时会把这个list结构当成普通R对象打印，自动给每个列表元素加上位置标识文本。
• 代码块的paged.print=TRUE参数会触发RMarkdown的分页打印逻辑，对列表类对象做结构化展示，进一步放大了这类冗余文本。

具体调整步骤 #

• 调整函数内部返回逻辑
  原返回写法：

  return(list(plot(p4), plot(p1)))
  

  按照图形类型做对应修改：
  • 如果p4、p1是ggplot2生成的图形对象：直接返回对象本身，去掉多余的plot()包裹，改为：

    return(list(p4, p1))
    

    此时RMarkdown会自动识别列表内的ggplot对象，依次渲染成纯图形，不会额外打印列表标签。
  • 如果p4、p1是基础绘图系统的内容：直接在函数内部完成绘图渲染，不要把plot()的结果塞进返回列表，最终函数返回不可见空值即可：

    # 函数内部直接执行绘图逻辑，触发生成到当前输出设备
    plot(p4)
    plot(p1)
    # 不返回带绘图返回值的列表，避免触发列表打印
    invisible(NULL)
    

    这种写法下绘图是代码执行过程中直接输出的图形内容，RMarkdown会自动收集所有生成的图，完全不会附带列表元素的文本标识。
• 调整代码块的配置参数
  删除代码块头里的paged.print=TRUE参数，避免分页打印逻辑对列表输出的干扰。调整后的完整代码块：

  trended_fav(psc_surv,"Overall","GRP106")
  

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