R语言：从带引号字符串中提取无引号字符串向量

嘿，我懂你遇到的问题啦！你想把那个带单引号的字符串转换成干净的字符向量，试过strsplit没得到想要的结果，其实用正则表达式就能轻松搞定，我给你两种实用的方法：

方法1：用基础R函数实现 #

不需要额外安装包，用regmatches和gregexpr配合正则就能完成提取：

extract <- function(str) {
  # 匹配所有被单引号包裹的内容，正则 '([^']+)' 表示捕获单引号内非引号的字符
  matched_content <- regmatches(str, gregexpr("'([^']+)'", str))[[1]]
  # 去掉每个元素前后的单引号
  gsub("'", "", matched_content)
}

# 测试函数
str <- " 'A' 'B' 'csdsdf3' 'csdsdf3' "
u <- extract(str)
u
# 输出结果：
# [1] "A"        "B"        "csdsdf3"  "csdsdf3"

方法2：用stringr包简化操作 #

如果你能安装并加载stringr包（这个包处理字符串更直观友好），可以用更简洁的正则提取：

# 先安装包（如果还没装过）
# install.packages("stringr")
library(stringr)

extract <- function(str) {
  # 用正向预查直接捕获单引号内的内容，不用额外替换引号
  str_extract_all(str, "(?<=')[^']+(?=')")[[1]]
}

# 测试函数
str <- " 'A' 'B' 'csdsdf3' 'csdsdf3' "
u <- extract(str)
u
# 同样得到预期结果

简单解释下正则逻辑 #

• (?<=')：正向后顾断言，确保匹配内容的前面是单引号
• [^']+：匹配一个或多个不是单引号的字符（这就是我们要的内容）
• (?=')：正向前瞻断言，确保匹配内容的后面是单引号

这样就能精准提取出每个单引号里的字符串，不会带上引号本身，也能处理开头的空格问题~

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