如何在 R 中使用 rename_with 和子字符串?

How to use rename_with and substring in R?

我有一个名为 emp 的数据框,其中有一些列名称,例如“X.2008_PLDF”、“X.2009_SDF”和“county_name".

我想重命名其中包含数字的列,以便它们只是 4 位数字。

这就是我正在尝试的:

rename_with(emp, str_sub(names(emp),2,5), starts_with("X"))

但是我收到以下错误:

Can't convert a character vector to function

不太确定我要做什么!

没有例子很难测试,但像这样的东西应该可以工作

rename_with(emp, ~str_sub(.,2,5), starts_with("X"))