如何在RMarkdown中让draw.io SVG图同步代码块变量值？

方案1：手动文本替换（新手友好） #

• 用draw.io制作图表时，把需要动态更新的数值位置写成占位符，比如{{variable1}}、{{variable2}}，别直接写固定数值。导出时选择「纯SVG」格式保存。
• 在RMarkdown代码块中定义变量：

variable1 <- 10
variable2 <- 20

• 读取SVG文件并替换占位符：

# 读取原始SVG内容
svg_raw <- readLines("your_diagram.svg")
# 替换占位符为变量值
svg_updated <- gsub("{{variable1}}", variable1, svg_raw)
svg_updated <- gsub("{{variable2}}", variable2, svg_raw)
# 保存修改后的SVG
writeLines(svg_updated, "diagram_updated.svg")

• 在文档中插入更新后的图表：

![同步后的流程图](diagram_updated.svg)

方案2：用svgtools包简化操作 #

• 先安装并加载工具包：

install.packages("svgtools")
library(svgtools)

• 同样按方案1的要求在draw.io中设置占位符，然后用包内置函数批量替换：

variable1 <- 10
variable2 <- 20
# 一次性替换多个占位符
replace_text(input = "your_diagram.svg",
             output = "diagram_updated.svg",
             replace = c("{{variable1}}" = variable1, "{{variable2}}" = variable2))

• 插入更新后的SVG即可。

额外技巧（HTML输出专属） #

如果你的RMarkdown最终输出是HTML，可以不用生成中间SVG文件，直接把修改后的SVG内容嵌入页面：

library(htmltools)
# 读取并替换后直接转为HTML元素
svg_html <- HTML(paste(svg_updated, collapse = "\n"))
svg_html

注意事项 #

• draw.io导出SVG时，务必选「纯SVG」，不要勾选嵌入图像、压缩等选项，否则会导致文本替换失败。
• 占位符要和draw.io中的文本完全匹配（包括大小写、空格），否则无法被正确替换。

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