如何用分隔符拆分r中的字符串并丢弃最后两个项目？

Question

我有一个字符串分隔_,我想摆脱最后两个元素.例如,从A_B_C_D我想要返回A_B,从A_B_C_D_E我想要A_B_C.我试图str_split_fixed从stringr:

my_string <- "A_B_C_D"
x <- str_split_fixed(my_string,"_",3) 

但它返回"A" "B" "C_D"的不是 "A_B" "C" "D",否则我可以做head(x,-2)来获得A_B

有没有比这更好的方法

paste(head(unlist(strsplit(my_string,"_")),-2),collapse="_")

Answer 1

如何使用正则表达式:

sub('(_[A-Z]){2}$', '', 'A_B_C_D')

数字2是你想要下降的长度.