在第二个下划线之前得到角色

Question

如何在字符串中指定第二个下划线？我想在第二个下划线之前得到这个部分。

    > head(colnames(counts))
[1] "1_JH_F12_S41.mature"   "107_MAE_E7_S11.mature" "108_IME_A8_S23.mature" "109_GW_B11_S27.mature"
[5] "111_PH_H1_S77.mature"  "116_TH_E6_S10.mature"

我的尝试在第一个下划线之前给出了字符串：

sub("_.*", "", colnames(counts))

出：

1_JH
107_MAE
...