搜索和替换函数以重命名列

Question

我有这样的数据框

> d <- data.frame(team.aaa=1:3, team.aab=4:6, team.aac=7:9)
> d

#   team.aaa team.aab team.aac
#1        1        4        7
#2        2        5        8

还有，想要的输出

d <- rename(d, c("team.aaa"="aaa_team", "team.aab"="aab_team", "team.aac"="aac_team"))
> d
#  aaa_team aab_team aac_team
#1        1        4        7
#2        2        5        8
#3        3        6        9

我可以用重命名字符串来做，但由于数据量很大，我想使用搜索和替换选项 非常感谢提前

Answer 1

根据 OP 帖子中显示的示例，. 之后的后缀部分似乎应该是前缀，反之亦然。在这种情况下，我们可以使用sub 来捕获不是. 的字符，然后是.，然后捕获其余字符（(.*)）并将其替换为相应排列的反向引用。

names(d) <- sub("([^.]+).(.*)", "\\2_\\1", names(d))
names(d)
#[1] "aaa_team" "aab_team" "aac_team"

---

或者另一种选择是将字符串拆分为.，然后在颠倒顺序后paste

sapply(strsplit(names(d), "[.]"), function(x) paste(rev(x), collapse="_"))

或者正如 @jota 在 cmets 中提到的，如果 'team' 始终是第一个单词，我们可以使用 sub 使其更紧凑

sub("team\\.(.*)", "\\1_team", names(d))