如何提取R引号内的参考书目中的所有文本？

# 定义一个正则表达式模式，用于匹配引号内的文本
pattern <- "\"(.*?)\""

# 示例参考书目
references <- c("Smith, John. \"Introduction to Data Science\". Publisher A, 2021.",
                "Doe, Jane. \"Advanced Statistics\". Publisher B, 2020.")

# 提取引号内的文本
matches <- regmatches(references, gregexpr(pattern, references))

# 输出提取到的文本
for (match in matches) {
  print(match)
}

[1] "Introduction to Data Science"
[2] "Advanced Statistics"