从R中的向量中的条目中提取字符

Question

Excel中有一些函数称为left,right和mid,您可以从单元格中提取部分条目.例如=left(A1, 3),将返回单元格A1的3个最左边的字符,=mid(A1, 3, 4)将开始在单元格A1中的第三个字符,并给你的字符数3 - 6是R中有类似的功能或类似的简单方法可以做到这一点？

作为简化的示例问题,我想采用矢量

sample<-c("TRIBAL","TRISTO", "RHOSTO", "EUGFRI", "BYRRAT")

并创建3个新向量,每个条目包含前3个字符,每个条目中间2个字符,每个条目中最后4个字符.

(我知道)Excel没有函数的一个稍微复杂的问题是如何使用每个条目中的第1个,第3个和第5个字符创建一个新的向量.

Answer 1

您正在寻找该功能substr或其近亲substring:

主角是直截了当的:

substr(sample, 1, 3)
[1] "TRI" "TRI" "RHO" "EUG" "BYR"

所以在定义的位置提取一些字符:

substr(sample, 2, 3)
[1] "RI" "RI" "HO" "UG" "YR"

要获取尾随字符,您有两种选择:

substr(sample, nchar(sample)-3, nchar(sample))
[1] "IBAL" "ISTO" "OSTO" "GFRI" "RRAT"

substring(sample, nchar(sample)-3)
[1] "IBAL" "ISTO" "OSTO" "GFRI" "RRAT"

而你最后的"复杂"问题:

characters <- function(x, pos){
  sapply(x, function(x)
    paste(sapply(pos, function(i)substr(x, i, i)), collapse=""))
}
characters(sample, c(1,3,5))
TRIBAL TRISTO RHOSTO EUGFRI BYRRAT 
 "TIA"  "TIT"  "ROT"  "EGR"  "BRA"