我有兴趣通过保留前三个字符（在R中）来修改数据的列名。
目前我的列名是这样的：
ALAD1_P1_R1
ALAJ3_P2_R3
CMBZ1_P1_R2
我正在寻求获得：
ALA
ALA
CMB
我认为引用的答案不能解决这个问题。我的问题是关于重命名列而不是字符串。
我尝试使用正则表达式语法。
输入数据帧包含> 5000+列，其格式如上所述：CMBZ1_P1_R2。使用下面的代码行时，它仅消除最后两个字符（即R2）。
> names(data) = sub("[^_]+$","",names(data))
CMBZ1_P1_