R语言：去除倒数多个元素

现有字符串如下所示：

merged_file
"HAH_chr14_111111_222222_-_HE_111116_chr14_OK_for"

现在我们想把HAH_chr14_111111_222222_-提取出来，那么可以用到命令：

library(stringr)
split_file <- unlist(strsplit(merged_file,split="_"))
paste(split_file[-c(c(length(split_file)-4):length(split_file))],collapse='_')

-c(c(length(split_file)-4):length(split_file))指的是去除倒数第五到最后的所有元素，即HE_111116_chr14_OK_for。