删除列名中的字符

我们可以用sub.我们将模式_后跟一个或多个数字(\\d+)匹配到$字符串的end()并替换为''.

names(df) <- sub('_\\d+$', '', names(df))

或作为@大卫Arenburg提到的,它可以是一个或多个任意字符(.*后)_(其将匹配模式,例如var1_1,var1_d3533等)

names(df) sub("_.*", "", df)

或者我们使用paste(@ jogo的评论)

names(df) <- c("Ind", paste0("var", 1:100))