如何用R语言stringr包提取括号前字符并以分号拼接为指定格式？

针对你提出的需求——从字符串中提取所有"("之前的字符并用";"拼接，这里有两种简洁的实现方式，基于stringr包来完成：

方法1：直接正则提取（推荐） #

我们可以用正则表达式精准匹配每个"("之前的有效部分，再直接拼接：

library(stringr)

# 输入字符串
pilist <- "pi1(tag1,tag2);pi2(tag3,tag4,tag5);"

# 提取所有"("前的内容：正则匹配非括号字符+正向预查左括号
extracted <- str_extract_all(pilist, "[^\\(]+(?=\\()")[[1]]

# 用";"拼接结果
final_result <- str_c(extracted, collapse = ";")

print(final_result)
# 输出: "pi1;pi2"

正则解释： #

• [^\\(]+：匹配一个或多个不是左括号的字符，确保我们只取到"("前面的内容；
• (?=\\()：正向预查，用来确认这些字符后面紧跟着左括号，避免匹配到无关内容。

方法2：拆分后处理（更直观） #

如果觉得正则有点抽象，也可以先按分号拆分字符串，再逐个处理每个片段：

library(stringr)

pilist <- "pi1(tag1,tag2);pi2(tag3,tag4,tag5);"

# 按分号拆分字符串，去掉最后一个空元素（因为原字符串结尾有分号）
split_parts <- str_split(pilist, ";")[[1]]
split_parts <- split_parts[split_parts != ""]

# 去掉每个片段中从"("开始的所有内容
clean_parts <- str_remove(split_parts, "\\(.*")

# 拼接结果
final_result <- str_c(clean_parts, collapse = ";")

print(final_result)
# 输出: "pi1;pi2"

关于你尝试的stringr::word #

你之前写的stringr::word(pilist, 2, sep = '(\\s*|\\')有两个问题：一是正则表达式不完整（末尾的引号和括号没闭合），二是word函数更适合按分隔符取位置固定的"单词"，但这里我们需要提取所有符合条件的片段，所以用上面两种方法更合适。

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