例如我有以下数据
Ind var1_1 var2_2 var3_1 var4_2.......var100_1
1 0 0 2 1 0
2 2 0 1 0 2
我想重命名后面没有两个字符的列,如下所示
Ind var1 var2 var3 var4.......var100
1 0 0 2 1 0
2 2 0 1 0 2
我们可以用sub
。我们匹配模式_
后跟一位或多位数字 (\\d+
) 到最后 ($
) 的字符串并替换为''
.
names(df) <- sub('_\\d+$', '', names(df))
或者正如@David Arenburg 提到的,它可以是一个或多个任何字符(.*
) 之后_
(这将匹配这样的模式var1_1
, var1_d3533
etc.)
names(df) sub("_.*", "", df)
或者我们使用paste
(@jogo 的评论)
names(df) <- c("Ind", paste0("var", 1:100))
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)