我有一个独特的角色,每个字母后面都有一个数字。例如:A1B10C5
我想将其拆分letter <- c(A, B, C)
并number <- c(1, 10, 5)
使用R。
我们可以使用正则表达式查找方法在字母和数字之间进行拆分
v1 <- strsplit(str1, "(?<=[A-Za-z])(?=[0-9])|(?<=[0-9])(?=[A-Za-z])", perl = TRUE)[[1]]
v1[c(TRUE, FALSE)]
#[1] "A" "B" "C"
as.numeric(v1[c(FALSE, TRUE)])
#[1] 1 10 5
str1 <- "A1B10C5"
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句