我有一个向量vec。我需要删除最后一个“/”之前的部分并获取剩余的字符串并获取 result。另请注意，我不能使用与 Perl 兼容的正则表达式(即 perl=FALSE)。我还希望看到它作为第 n 个分隔符。

vec<-c("/apple/pineapple/mango/reg.sh_ttgs.pos","/apple/pipple/mgo/deh_ttgs.pos") 

最后一个分隔符的结果

reg.sh_ttgs.pos , deh_ttgs.pos 

第二个分隔符的结果

pineapple/mango/reg.sh_ttgs.pos, pipple/mgo/deh_ttgs.pos 

等等..

请您参考如下方法:

或者，您可以使用qdap 包中的char2end()。您指定一个分隔符以及要在函数中使用的分隔符(第一个、第二个等)。

library(qdap) 

对于第二个分隔符，

char2end(vec, "/", 2) 
#[1] "pineapple/mango/reg.sh_ttgs.pos" "pipple/mgo/deh_ttgs.pos" 

对于最后一个分隔符，

char2end(vec, "/", 4) 
#[1] "reg.sh_ttgs.pos" "deh_ttgs.pos"