cómo subcadrar en r desde la posición

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