R语言如何使用rename_with与substring修改列名并提取4位数字？

报错原因 #

dplyr::rename_with()的第二个参数要求传入处理列名的函数，你直接传入了已计算完成的字符向量str_sub(names(emp),2,5)，类型不匹配因此触发报错。

正确实现 #

用匿名函数承接匹配到的列名即可，两种等价写法如下：

# 加载依赖包
library(dplyr)
library(stringr)

# 写法1：purrr风格匿名函数，.x代表匹配到的待重命名列名
emp <- rename_with(emp, ~ str_sub(.x, 2, 5), starts_with("X"))

# 写法2：基础R匿名函数写法
emp <- rename_with(emp, function(col_name) str_sub(col_name, 2, 5), starts_with("X"))

运行后，匹配到的X.2008_PLDF、X.2009_SDF会被重命名为2008、2009，county_name列不受影响，符合需求。

内容的提问来源于stack exchange，提问作者entropy