r - 使用 rename_all 从列名中删除数字

Question

我正在尝试从我拥有的某些列名称中删除数字。我尝试了以下方法，但没有成功。

iris %>% 
  rename_all(.funs = list(gsub('[[:digit:]]+', "", names(.))))

如何使用 rename_all 正确删除列名称中的数字？

数据:

data(iris)
numericNames <- paste(seq(1:5), colnames(iris), sep = "")
colnames(iris) <- numericNames

Answer 1

由于作用域变体 rename_all 已从 dplyr 版本 1.0.0 开始被取代，您应该像这样使用 rename_with:

iris %>% 
  rename_with(~gsub("\\d+", "", .))

或者，使用您使用的正则表达式

iris %>% 
  rename_with(~gsub('[[:digit:]]+', "", .))

. 指的是列的名称，因此您不需要使用 names(.)

输出

#     Sepal.Length Sepal.Width Petal.Length Petal.Width    Species
# 1            5.1         3.5          1.4         0.2     setosa
# 2            4.9         3.0          1.4         0.2     setosa
# 3            4.7         3.2          1.3         0.2     setosa
# ...