R语言字符串或变量拆分
R语言常用的字符串或变量拆分函数有 substr split strsplit tstrsplit
substr 主要是提取或是替换一个字符向量中的子字符串。
> substr("abcdef", 2, 4) #从字符串“abcdef”中提取出第2到4个位置上的字符
[1] "bcd"
> substring("abcdef", 1:6, 1:6) #从字符串“abcdef”中提取出第1到1、2到2—6到6位置上的字符，即把字符串单个化
[1] "a" "b" "c" "d" "e" "f"
split 主要是用定义的f函数来将向量V进行分离。
例：
require(stats) #加载stats包
n <- 10; nn <- 100
x <- rnorm(n * nn) + sqrt(as.numeric(g)) #生成随机数x
f <- c(1:8) #分离函数f
split(x, f) #用f将随机数x分离，即分离成8份
> split(x, f)
$`1`
[1] 1.47442576 2.80564890 2.14614596 3.20958535 2.90331051 2.27517852 2.31779222 2.36806067 2.97523054
tstrsplit是data.table包里面的一个函数， 它跟transpose函数类似， 主要是对变量用strsplit函数作用再进行转置，形成一个独立的列。
strsplit主要是根据子字符串中与此相匹配的字符将向量进行分割，分割后的内容不包含该字符的列表。
> x <- c(as = "asfef", qu = "qwerty", "yuiop[", "b", "stuff.blah.yech")
> x
as qu
"asfef" "qwerty" "yuiop[" "b" "stuff.blah.yech"
> strsplit(x, "e")
$as
[1] "asf" "f"
$qu
[1] "qw" "rty"
[[3]]
[1] "yuiop["
[[4]]
[1] "b"
[[5]]
[1] "stuff.blah.y" "ch"
例：
> x = c("abcde", "ghij", "klmnopq") #x 为三个字条串组成的向量
> strsplit(x, "", fixed=TRUE) #用strsplit 把每个字符串中的字符给分离出来形成列表中单独的元素，总共有三个元素
[[1]]
[1] "a" "b" "c" "d" "e"
[[2]]
[1] "g" "h" "i" "j"
[[3]]
[1] "k" "l" "m" "n" "o" "p" "q"
> tstrsplit(x, "", fixed=TRUE) #用tstrsplit 把每个字符串中的字符给分离出来并进行了转置，列表中第一个元素为向量中每个元素的第一个字符，共七个元素
[[1]]
[1] "a" "g" "k"
[[2]]
[1] "b" "h" "l"
[[3]]
[1] "c" "i" "m"
[[4]]
[1] "d" "j" "n"
[[5]]
[1] "e" NA "o"
[[6]]
[1] NA NA "p"
[[7]]
[1] NA NA "q"
> DT = data.table(x=c("A/B", "A", "B"), y=1:3) #DT为三行两列的数据表
> DT
x y
1: A/B 1
2: A 2
3: B 3
> DT[, c("c1", "c2") := tstrsplit(x, "/", fixed=TRUE)][] #用tstrsplit函数将变量x分离开形成新的变量c1和c2
x y c1 c2
1: A/B 1 A B
2: A 2 A NA
3: B 3 B NA