如何在R中将BibTeX引用命令转换为R Markdown格式？

可以用R的字符串替换功能结合正则表达式，批量把数据框里的BibTeX引用转换成R Markdown需要的格式。下面分两种实现方式：

方法一：用stringr包（语法更直观） #

先确保安装并加载stringr包：

install.packages("stringr") # 首次使用需安装
library(stringr)

假设你的数据框名为df，存储BibTeX引用的列叫bib_citations，执行以下代码生成转换后的列：

# 第一步：转换带页码的引用格式 \cite[页码]{标识} → @标识, 页码
df$rmd_citations <- str_replace_all(df$bib_citations,
                                    pattern = "\\\\cite\\[(.*?)\\]{(.*?)}",
                                    replacement = "@\\2, \\1")

# 第二步：转换不带页码的引用格式 \cite{标识} → @标识
df$rmd_citations <- str_replace_all(df$rmd_citations,
                                    pattern = "\\\\cite{(.*?)}",
                                    replacement = "@\\1")

方法二：用base R原生函数 #

如果不想额外加载包，直接用gsub也能实现：

# 先处理带页码的引用
df$rmd_citations <- gsub("\\\\cite\\[(.*?)\\]{(.*?)}", "@\\2, \\1", df$bib_citations)

# 再处理不带页码的引用
df$rmd_citations <- gsub("\\\\cite{(.*?)}", "@\\1", df$rmd_citations)

正则表达式说明 #

• \\\\cite：匹配BibTeX的\cite命令（R中反斜杠需要双重转义，所以用四个反斜杠）
• \\[(.*?)\\]：匹配方括号内的页码内容，(.*?)是非贪婪匹配，避免误匹配多个连续引用
• {(.*?)}：匹配大括号内的引用标识
• 替换规则中，\\1对应匹配到的页码内容，\\2对应匹配到的引用标识

测试示例 #

用你提供的测试字符串验证：

test_str <- "\\cite[265]{delbarrio2014a}, \\cite[423--429]{nieto2009}, \\cite[188, 191, 196--197]{bile1988a}, \\cite[188--189]{bartonek2003}, \\cite[193]{thompson2010}, \\cite{skelton2015}"

# 执行转换
str_replace_all(test_str, "\\\\cite\\[(.*?)\\]{(.*?)}", "@\\2, \\1") %>%
  str_replace_all("\\\\cite{(.*?)}", "@\\1")

输出结果：

@delbarrio2014a, 265, @nieto2009, 423--429, @bile1988a, 188, 191, 196--197, @bartonek2003, 188--189, @thompson2010, 193, @skelton2015

完全符合需求。

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