如何將函數應用於 tidyverse 中的列名

Question

就像標題一樣：是否有任何函數可以將另一個函數應用於data frame列名？ 我的意思是像forcats::fct_relabel類的東西， forcats::fct_relabel一些函數應用於因子標簽。

舉個例子， data.frame我有一個data.frame如下：

X<-data.frame(
   firababst = c(1,1,1),
   secababond = c(2,2,2),
   thiababrd = c(3,3,3)
 )  

X
  firababst secababond thiababrd
1         1          2         3
2         1          2         3
3         1          2         3

現在我希望通過應用stringr::str_remove從列名中刪除abab 。 我的解決方法涉及magrittr::set_colnames ：

 X %>% 
   set_colnames(colnames(.) %>% str_remove('abab'))
  first second third
1     1      2     3
2     1      2     3
3     1      2     3

你能提出一些更直接的方法嗎？ 理想情況下，類似於：

X %>% 
   magic_foo(str_remove, 'abab')

Answer 1

你可以做：

X %>%
 rename_all(~ str_remove(., "abab"))

  first second third
1     1      2     3
2     1      2     3
3     1      2     3

Answer 2

使用base R ，我們可以做到

names(X) <- sub("abab", "", names(X))