R tibble使用正则表达式重命名列

Question

在几个dplyr :: join之后，我在表中有多个重复的列。该表的简单版本如下所示：

col1 col2 col3 col4.x col4.y col5.x col5.y

我想重命名为：

col1 col2 col3 col4 col5

我能够使用select(tablename, -matches("*.y"))

删除* .y列

导致：

col1 col2 col3 col4.x col5.x

从这里开始，我认为rename_if()应该可行，但我不知道如何将col4.x和col5.x重命名为col4和col5。

任何建议都将受到赞赏。

Answer 1

mytibble %>% rename_all(gsub, pattern = '\\.x', replacement = '')