R中根据字符分割字符串

我的数据集中有一列，其中有一个我想要拆分的字符串。

df = data.frame(col = c("BrBkRY","BBkRBr","YBRG","RBBk"))

这是我想用来有条件分割的向量。

sep = c("Br","Bk","R","Y","B","G")

这就是最终的样子。我是用手做的。

df2 = data.frame(col = c("BrBkRY","BBkRBr","YBRG","RBBk"), 
                 col1 = c("Br","B","Y","R"),
                 col2 = c("Bk","Bk","B","B"),
                 col3 = c("R","R","R","Bk"),
                 col4 = c("Y","Br","G",""))
df2 
     col col1 col2 col3 col4
1 BrBkRY   Br   Bk    R    Y
2 BBkRBr    B   Bk    R   Br
3   YBRG    Y    B    R    G
4   RBBk    R    B   Bk     

我正在考虑使用正则表达式，但通常，您需要一个分割字符，例如. or -。但对于基于字符的字符串，我不知道。此外，不想将 BkB 拆分为 B、k 和 B。但我确实想将其拆分为 Bk 和 B。是否有一个包可以做到这一点？

您可以使用lookahead和lookbehind通过正则表达式进行分割。该表达式表示在任意字符和大写字母之间的空格上进行分割。(?<=.)指定前导“任何字符”并且(?=[A-Z])指定以下国会大厦。 “任何角色”和国会大厦实际上并不是比赛的一部分，因此它们不会在分裂中“被吸走”。

> lst <- strsplit(as.character(df$col), '(?<=.)(?=[A-Z])', perl=TRUE)
> lst
[[1]]
[1] "Br" "Bk" "R"  "Y" 

[[2]]
[1] "B"  "Bk" "R"  "Br"

[[3]]
[1] "Y" "B" "R" "G"

[[4]]
[1] "R"  "B"  "Bk"

然后可以构建列，例如与 akrun 的答案完全相同：

dfN <- cbind(df[1], do.call(rbind, lapply(lst, `length<-`, max(lengths(lst)))))
colnames(dfN)[-1] <- paste0("col", colnames(dfN)[-1])