dplyr-用select函数重命名列的序列

Question

我正在尝试重命名我的专栏dplyr.我发现用select功能做它.但是当我尝试用序列重命名一些选定的列时,我无法将它们重命名为我想要的格式.

test = data.frame(x = rep(1:3, each = 2),
              group =rep(c("Group 1","Group 2"),3),
              y1=c(22,8,11,4,7,5),
              y2=c(22,18,21,14,17,15),  
              y3=c(23,18,51,44,27,35),
              y4=c(21,28,311,24,227,225))

CC <- paste("CC",seq(0,3,1),sep="")
aa<-test%>%
select(AC=x,AR=group,CC=y1:y4)

头(AA)

  AC      AR CC1 CC2 CC3 CC4
1  1 Group 1  22  22  23  21
2  1 Group 2   8  18  18  28
3  2 Group 1  11  21  51 311
4  2 Group 2   4  14  44  24
5  3 Group 1   7  17  27 227
6  3 Group 2   5  15  35 225

问题是即使我CC从CC0, CC1, CC2, CC3输出设置值自动从头开始给出头名CC1.我该如何解决这个问题？

Answer 1

我想你可以更容易地用这个select_函数创建这样的表达式:

library(dplyr)

test <- data.frame(x=rep(1:3, each=2),
                   group=rep(c("Group 1", "Group 2"), 3),
                   y1=c(22, 8, 11, 4, 7, 5),
                   y2=c(22, 18, 21, 14, 17, 15),
                   y3=c(23, 18, 51, 44, 27, 35),
                   y4=c(21, 28, 311,24, 227, 225))

# build out our select "translation" named vector
DQ <- paste0("y", 1:4)
names(DQ) <- paste0("DQ", seq(0, 3, 1))

# take a look
DQ

##  DQ0  DQ1  DQ2  DQ3 
## "y1" "y2" "y3" "y4"

test %>%
  select_("AC"="x", "AR"="group", .dots=DQ)

##   AC      AR DQ0 DQ1 DQ2 DQ3
## 1  1 Group 1  22  22  23  21
## 2  1 Group 2   8  18  18  28
## 3  2 Group 1  11  21  51 311
## 4  2 Group 2   4  14  44  24
## 5  3 Group 1   7  17  27 227
## 6  3 Group 2   5  15  35 225