问使用`sub`重命名数据框中的列

EN

我尝试使用sub来重命名大型数据框中的列，但在使用replacement和x参数时遇到了麻烦。我有一个数据框，如下所示：

df <- as.data.frame(cbind(1:3, 4:6, 7:9, 10:12))
colnames(df) <- c("A_number", "A_frq", "B_number", "B_frq")

我需要列名为colnames(df) <- c("A", "frq A", "B", "frq B")。我的实际数据有更多的列，所以我尝试使用模式一次重命名每一列。

我能够使用以下代码将A_number和B_number更改为A和B：colnames(df) <- sub("\\_number$", "", colnames(df))。但是在此之后，我尝试更改A_frq和B_frq，并尝试了colnames(df) <- sub("\\_frq$", "", paste("frq ", colnames(df)))，它将所有列名都更改为frq A或frq B。我也考虑过使用colnames(df) <- sub("\\_frq$", "", colnames(df))并在以后添加frq，但是现在所有的列都是A或B，我不知道哪一列是A_frq或B_frq。有没有一种简单的方法可以使用sub来解决这个问题？