拆解字符串并逐个处理 R语言

拆解字符串并逐个处理 R语言

有一个字符串 vector "1,234,567", "1,234", "234", "2,234" 。如果想把逗号去掉我们可以将这个字符串拆解，使用 strsplit 函数。

sv <- c("1,234,567", "1,234", "234", "2,234")
svl <- strsplit(sv, split=",")

sv1此时返回的是一个 list 数据，list 中的每一项都变成了 sv 中每一项的一个字符串 vector。

[[1]]
[1] "1" "234" "567"
[[2]]
[1] "1" "234"
[[3]]
[1] "234"
[[4]]
[1] "2" "234"

因此要处理 strsplit 返回的数据就要用到 lapply。

svl2 <- lapply(svl, paste, collapse="")

对于 svl 中的每一项进行字符串合并，即 paste(collapse="") 。最后我要把 list 数据重新合并为一个字符串 vector，要用到 c。

c(svl2, recursive=T)

必须使用 recursive=T 这个参数去合并。得到的结果就是

c("1234567", "1234", "234", "2234")