求助：如何在R中拆分含多逗号的类别-描述格式字符串？

针对你提供的向量，核心是找到不同类别之间的分隔逗号——也就是逗号后紧跟“类别名称+冒号”的位置，用正则表达式的正向预查就能精准拆分。

核心代码 #

方法1：使用stringr包（更直观）

library(stringr)
x <- c("Sara: has brown hair, Mary Jane: is, mostly, regarded as intelligent, Marc-Oliver: big,handsome","Elvis: loud, dead, Ray Charles: silent, dead, Rihanna: alive")

# 拆分字符串
result <- str_split(x, ", (?=[A-Za-z- ]+:)", simplify = TRUE)
print(result)

方法2：使用base R的strsplit

x <- c("Sara: has brown hair, Mary Jane: is, mostly, regarded as intelligent, Marc-Oliver: big,handsome","Elvis: loud, dead, Ray Charles: silent, dead, Rihanna: alive")

# 启用perl正则支持
result <- strsplit(x, ", (?=[A-Za-z- ]+:)", perl = TRUE)
print(result)

正则表达式解释 #

, (?=[A-Za-z- ]+:) 各部分含义：

• , ：匹配类别之间的逗号+空格
• (?=...)：正向预查，仅检查后续内容是否符合规则，不消耗字符（拆分时不会移除类别名称）
• [A-Za-z- ]+：匹配类别名称，支持多单词（如Mary Jane）、连字符（如Marc-Oliver）
• :：匹配类别名称后的冒号，确保这是一个新类别的起始

输出结果 #

运行后会得到你预期的关联结构：

# 方法1输出（矩阵格式）
     [,1]                    [,2]                                            [,3]                     
[1,] "Sara: has brown hair" "Mary Jane: is, mostly, regarded as intelligent" "Marc-Oliver: big,handsome"
[2,] "Elvis: loud, dead"    "Ray Charles: silent, dead"                     "Rihanna: alive"         

# 方法2输出（列表格式）
[[1]]
[1] "Sara: has brown hair"                          "Mary Jane: is, mostly, regarded as intelligent"
[3] "Marc-Oliver: big,handsome"                    

[[2]]
[1] "Elvis: loud, dead"    "Ray Charles: silent, dead" "Rihanna: alive"  

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