Comment substruire en r de position

strsplit(str1,"_")[[1]][3]
#[1] "HIG"
Bored Barracuda