1、str_sub()函数
str_sub()函数按照字符的位置下标取值(返回01)
a = "TCGA-W5-AA2I-01A-32R-A41I-07"
b = str_sub(a,14,15)
2、str_split()函数
str_split()函数按指定分隔符分隔字符串，得到一行的矩阵
c <- str_split(a,"-",simplify = T)[,4]
c <- paste(c, collapse = "")
3、str_match()函数
str_match()函数严格按照正则表达式的小括号取值
d <- str_match(a,"[A-Z]{4}[-][A-Z0-9]{2}[-][A-Z0-9]{4}[-]([0-9]{2})[A][-][A-Z0-9]{3}[-][A-Z0-9]{4}[-][0-9]{2}")[,2]
