como substring em r da posição
strsplit(str1,"_")[[1]][3]
#[1] "HIG"
Bored Barracuda
strsplit(str1,"_")[[1]][3]
#[1] "HIG"