R语言弦图函数：如何抑制控制台输出且不影响recordPlot功能？

针对你在RMarkdown中生成弦图时，需要抑制控制台绘图输出但保留可复用绘图对象的需求，以下是两种可行方案：

方案一：使用临时PDF设备录制绘图 #

通过创建临时PDF文件作为绘图设备，完成绘制后录制绘图对象，再清理临时文件，既不会在控制台显示绘图，也能正常使用recordPlot()：

library(circlize)

generate_chord <- function(data) {
  # 创建临时PDF文件路径
  temp_pdf <- tempfile(fileext = ".pdf")
  # 启动PDF设备
  pdf(temp_pdf)
  
  # 绘制弦图
  chordDiagram(data)
  
  # 录制当前绘图
  plot_obj <- recordPlot()
  
  # 关闭设备并删除临时文件
  dev.off()
  file.remove(temp_pdf)
  
  # 返回绘图对象
  return(plot_obj)
}

# 使用示例
# 构造测试数据
chord_data <- matrix(c(5, 2, 3, 7), nrow = 2, dimnames = list(c("A", "B"), c("X", "Y")))
# 生成绘图对象（无控制台输出）
chord_plot <- generate_chord(chord_data)

# 后续操作示例：
# 保存到RData文件
save(chord_plot, file = "chord_plot.RData")
# 输出为PDF
pdf("final_chord.pdf")
replayPlot(chord_plot)
dev.off()

方案二：转换为ggplot对象（更适配RMarkdown） #

如果使用circlize包生成弦图，可以借助ggplotify将基础绘图转换为ggplot对象，这类对象在RMarkdown中仅当主动调用print()时才会显示，完美契合你的需求：

library(circlize)
library(ggplotify)
library(ggplot2)

generate_chord <- function(data) {
  # 将弦图绘制逻辑转换为ggplot对象
  chord_ggplot <- as.ggplot(function() {
    chordDiagram(data)
  })
  return(chord_ggplot)
}

# 使用示例
chord_data <- matrix(c(5, 2, 3, 7), nrow = 2, dimnames = list(c("A", "B"), c("X", "Y")))
chord_plot <- generate_chord(chord_data)

# 后续操作示例：
# 保存到RData
save(chord_plot, file = "chord_plot.RData")
# 直接保存为PDF（无需手动启动设备）
ggsave("chord_output.pdf", plot = chord_plot, width = 8, height = 8)

# 在RMarkdown中，仅当执行print(chord_plot)时才会显示绘图

关键说明 #

• 避免使用pdf(NULL)：该空设备不支持绘图录制，而临时文件设备是真实的绘图上下文，能正常完成recordPlot()操作。
• ggplot对象优势：在RMarkdown环境中，ggplot对象默认不会自动渲染，仅当你主动调用print()或在代码块中直接输出对象时才会显示，完全避免了杂乱的自动输出。

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