通过切换字符串模式重命名数据框列名称

Question

我有以下数据框，我想将列名重命名为 c("WBC_MIN_D7", "WBC_MAX_D7", "DBP_MIN_D3")

> dataf <- data.frame(
+     WBC_D7_MIN=1:4,WBC_D7_MAX=1:4,DBP_D3_MIN=1:4
+ )
> dataf
  WBC_D7_MIN WBC_D7_MAX DBP_D3_MIN
1          1          1          1
2          2          2          2
3          3          3          3
4          4          4          4
> names(dataf)
[1] "WBC_D7_MIN" "WBC_D7_MAX" "DBP_D3_MIN"

tidyverse中的rename_with函数应该可以做到，但是我不知道怎么做。

Answer 1

您可以使用带有 sub 的捕获组按顺序提取值 -

names(dataf) <- sub('^(\w+)_(\w+)_(\w+)$', '\1_\3_\2', names(dataf))

可以在 rename_with -

中使用相同的正则表达式

library(dplyr)

dataf %>% rename_with(~ sub('^(\w+)_(\w+)_(\w+)$', '\1_\3_\2', .))

#  WBC_MIN_D7 WBC_MAX_D7 DBP_MIN_D3
#1          1          1          1
#2          2          2          2
#3          3          3          3
#4          4          4          4

Answer 2

你可以用你的向量重命名你的 dataf with names(yourDF) <- c("A","B",...,"Z"):

names(dataf) <- c("WBC_MIN_D7", "WBC_MAX_D7", "DBP_MIN_D3")

通过切换字符串模式重命名数据框列名称

Rename dataframe column names by switching string patterns

r

rename

tidyverse