如何分割字母，字母与R中的括号和数字？

Question

例如，我有一个字符串A1[5]B1C6

我想它拆分成：

letter <- c(A, [5]B, C)  
number <- c(1, 1, 6) 

Answer 1

从stringr包使用str_extract_all，你可以看看，在数字的情况下，数字\\d+不之前有一个[(?<!\\[)：

library(stringr) 
num = unlist(str_extract_all(x,"(?<!\\[)\\d+")) 
[1] "1" "1" "6" 

在字母的情况下，可以由一个字母或数字的前面在括号内，你可以这样做：

let = unlist(str_extract_all(x,"(\\[[[:alnum:]]+\\])*[a-zA-Z]+")) 
[1] "A" "[5]B" "C"