如何从RMarkdown提取LaTeX图/表标签代码用于Overleaf交叉引用？

需求背景 #

我和合作者分工协作：用单个RMarkdown文档生成论文所有图表（含附录内容），但主论文在Overleaf上撰写。需要从RMarkdown中提取指定格式的LaTeX代码，复制到Overleaf文档底部，实现便捷的自动交叉引用，且便于后续分析输出变更时更新。

解决方法 #

方法1：直接解析RMarkdown文本

写一段R脚本读取Rmd文件，提取图表的label标签，再拼接成目标LaTeX格式：

# 读取目标Rmd文件
rmd_lines <- readLines("your_paper_figs_tables.Rmd")

# 初始化存储结果的向量
latex_code <- c()

# 1. 提取主文档中的图标签
fig_labels <- na.omit(stringr::str_extract(rmd_lines, "(?<=\\\\label\\{)fig:[^}]+"))
for (lab in fig_labels) {
  latex_block <- sprintf("\\begin{figure}\n\\caption{empty}\n\\label{%s}\n\\end{figure}\n", lab)
  latex_code <- c(latex_code, latex_block)
}

# 2. 提取主文档中的表标签（针对kable的label参数）
tab_labels <- na.omit(stringr::str_extract(rmd_lines, "(?<=label = \")tab:[^\"]+"))
for (lab in tab_labels) {
  latex_block <- sprintf("\\begin{table}\n\\caption{empty}\n\\label{%s}\n\\end{table}\n", lab)
  latex_code <- c(latex_code, latex_block)
}

# 3. 提取附录部分的LaTeX设置
appendix_idx <- which(rmd_lines == "\\appendix")
if (length(appendix_idx) > 0) {
  appendix_lines <- rmd_lines[appendix_idx:length(rmd_lines)]
  # 过滤掉R代码块，保留纯LaTeX行
  appendix_latex <- appendix_lines[!grepl("^```|^```\\{r", appendix_lines)]
  appendix_latex <- appendix_latex[appendix_latex != ""]
  latex_code <- c(latex_code, "\n", paste(appendix_latex, collapse = "\n"))
  
  # 提取附录中的图标签
  app_fig_labels <- na.omit(stringr::str_extract(appendix_lines, "(?<=\\\\label\\{)fig:[^}]+"))
  for (lab in app_fig_labels) {
    latex_block <- sprintf("\n\\begin{figure}\n\\caption{empty}\n\\label{%s}\n\\end{figure}", lab)
    latex_code <- c(latex_code, latex_block)
  }
}

# 将结果写入.tex文件，方便复制到Overleaf
cat(paste(latex_code, collapse = "\n"), file = "cross_ref_skeleton.tex")

方法2：利用knitr钩子捕获标签

在RMarkdown中添加自定义knitr钩子，编织时自动收集所有图表的label，最后生成目标代码：

1. 在Rmd开头的代码块中添加钩子：

library(stringr)

# 初始化存储标签的全局变量
global_fig_labels <- c()
global_tab_labels <- c()

# 自定义plot钩子，捕获图的label
knitr::knit_hooks$set(
  plot = function(x, options) {
    if (!is.null(options$fig.cap)) {
      lab <- str_extract(options$fig.cap, "(?<=\\\\label\\{)fig:[^}]+")
      if (!is.na(lab)) global_fig_labels <<- c(global_fig_labels, lab)
    }
    # 保留原有绘图逻辑
    knitr::hook_plot_md(x, options)
  },
  # 自定义输出钩子，捕获表的label
  output = function(x, options) {
    lab <- str_extract(x, "(?<=label = \")tab:[^\"]+")
    if (!is.na(lab)) global_tab_labels <<- c(global_tab_labels, lab)
    x
  }
)

2. 在Rmd末尾添加代码块生成LaTeX：

# 生成主文档图表的LaTeX块
main_blocks <- c()
for (lab in global_fig_labels) {
  main_blocks <- c(main_blocks, sprintf("\\begin{figure}\n\\caption{empty}\n\\label{%s}\n\\end{figure}\n", lab))
}
for (lab in global_tab_labels) {
  main_blocks <- c(main_blocks, sprintf("\\begin{table}\n\\caption{empty}\n\\label{%s}\n\\end{table}\n", lab))
}

# 读取并处理附录LaTeX
rmd_lines <- readLines(knitr::current_input())
appendix_idx <- which(rmd_lines == "\\appendix")
appendix_blocks <- if (length(appendix_idx) > 0) {
  app_lines <- rmd_lines[appendix_idx:length(rmd_lines)]
  app_lines <- app_lines[!grepl("^```|^```\\{r", app_lines)]
  app_lines <- app_lines[app_lines != ""]
  paste(app_lines, collapse = "\n")
} else ""

# 合并并输出
final_code <- c(paste(main_blocks, collapse = "\n"), "", appendix_blocks)
cat(paste(final_code, collapse = "\n"), file = "cross_ref_skeleton.tex")

方法3：从编织后的PDF的aux文件提取

先将Rmd编织为PDF，然后从生成的.aux文件中提取所有交叉引用标签，再转换为目标格式：

# 1. 编织Rmd生成PDF和aux文件
rmarkdown::render("your_paper_figs_tables.Rmd")

# 2. 读取aux文件提取标签
aux_lines <- readLines("your_paper_figs_tables.aux")
all_labels <- na.omit(str_extract(aux_lines, "(?<=\\\\newlabel\\{)(fig:[^}]+|tab:[^}]+)"))

# 3. 区分图和表，生成LaTeX块
latex_code <- c()
for (lab in all_labels[grepl("^fig:", all_labels)]) {
  latex_code <- c(latex_code, sprintf("\\begin{figure}\n\\caption{empty}\n\\label{%s}\n\\end{figure}\n", lab))
}
for (lab in all_labels[grepl("^tab:", all_labels)]) {
  latex_code <- c(latex_code, sprintf("\\begin{table}\n\\caption{empty}\n\\label{%s}\n\\end{table}\n", lab))
}

# 4. 添加附录格式设置（可根据Rmd内容调整）
appendix_settings <- "\\appendix\n\n\\setcounter{figure}{0}\n\\setcounter{table}{0}\n\\renewcommand{\\thefigure}{S\\arabic{figure}}\n\\renewcommand{\\thetable}{S\\arabic{table}}"
latex_code <- c(latex_code, "", appendix_settings)

# 5. 写入文件
cat(paste(latex_code, collapse = "\n"), file = "cross_ref_skeleton.tex")

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