现有字符串如下所示：
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。