将字符串分隔到r中的列表中

Question

我在 R 中有一个如下所示的字符串：

"{[PP]}{[BGH]}{[AC]}{[ETL]}....{[D]}"

我想把它转换成一个列表，这样：

List[[1]] = {[PP]}
List[[2]] = {[BGH]}
....
List[[N]] = {[D]}

如果有逗号，你可以做 strsplit 但我想保留括号而不是去掉它们。不知道如何在 R

中执行此操作

Answer 1

qdap 中有一个方便的功能，即bracketXtract

library(qdap)
setNames(as.list(bracketXtract(s, "curly", TRUE)), NULL)
#[[1]]
#[1] "{[PP]}"

#[[2]]
#[1] "{[BGH]}"

#[[3]]
#[1] "{[AC]}"

#[[4]]
#[1] "{[ETL]}"

#[[5]]
#[1] "{[D]}"

默认情况下，with = FALSE。所以不使用with = TRUE，会去掉括号。

数据

s <- "{[PP]}{[BGH]}{[AC]}{[ETL]}{[D]}" 

Answer 2

必填stringi 回答：

library(stringi)

dat <- "{[PP]}{[BGH]}{[AC]}{[ETL]}{[more]{[D]}"
as.list(stri_match_all_regex(dat, "(\\{\\[[[:alpha:]]+\\]\\})")[[1]][,2])
## [[1]]
## [1] "{[PP]}"
## 
## [[2]]
## [1] "{[BGH]}"
## 
## [[3]]
## [1] "{[AC]}"
## 
## [[4]]
## [1] "{[ETL]}"
## 
## [[5]]
## [1] "{[D]}"

Answer 3

没有正则表达式：

s <- "{[PP]}{[BGH]}{[AC]}{[ETL]}{[D]}"
as.list(paste("{", strsplit(s, "\\{")[[1]][-1], sep = ""))
[[1]]
[1] "{[PP]}"

[[2]]
[1] "{[BGH]}"

[[3]]
[1] "{[AC]}"

[[4]]
[1] "{[ETL]}"

[[5]]
[1] "{[D]}"

Answer 4

strsplit 如果你传递这个正则表达式 (?<=})(?={) 仍然可以工作，它限制了拆分的位置：

strsplit(s, "(?<=})(?={)", perl = T)

# [[1]]
# [1] "{[PP]}"  "{[BGH]}" "{[AC]}"  "{[ETL]}" "{[D]}" 

或如@thelatemail 建议的那样：

strsplit(s, "(?<=})", perl = T)