r 提取元素函数 R语言中利用sapply函数提取列表中元素 提取满足某种要求的字符 提取固定符号出现时的字符串 切割字符串 双斜杠 双斜线 正则表达 切割之后并提取出现相应符号时的内容元素

a <- c("3_k","4_f","2_t","8_s")
a
b <- strsplit(a, "_")
b
class(b)
c <- sapply(b, "[",1)
c
d <- sapply(b, "[",2)
d

res$ensembl <- sapply( strsplit( rownames(res), split="\\+" ), "[", 1 )

res$ensembl <- sapply( strsplit( rownames(res), split=“\+” ), “[”, 1 )

res$ensembl <- sapply( strsplit( rownames(res), split="\\+" ), "[", 1 )

 
y<-c("100-D","100-A","110-c","110-A")
z<-strsplit(y,"-")
sapply(z,"[",1) #提取列表第1个元素
sapply(z,"[",2) #提取列表中第2个元素

R语言字符串截取（substr()函数和substring()函数）

> s <- '1234567'
> substr(s, 2, 5)
[1] "2345"
> substr(s, 2)
Error in substr(s, 2) : 缺少参数"stop",也没有缺省值
> substring(s, 2, 5)
[1] "2345"
> substring(s, 2)
[1] "234567"

提取满足某种要求的字符 提取固定符号出现时的字符串

#可与str_locate函数配合使用，这里达到与str_extract函数函数的效果
str_sub(id_number$身份证号,str_locate(id_number$身份证号,"110101"))