在R中以特定顺序提取或合并列

Question

我有一个包含 300 多个变量的纵向数据框，一个医院数据库。对于某个临床测试，我提取了该测试的测试值和访问日期，这也对应于 dplyr 包的测试日期如下：

df_VL<- select(df, ends_with("vload"))
df_dat<- select(df, ends_with("datvisit"))

然后我merge这两个和cbind：

df_x<- cbind(df_VL,df_dat)

但这首先给了我所有的测试结果，然后是测试日期。

我需要 按时间顺序逐一提取以"vload"和"datvisit"结尾的所有变量，例如-->“t0datvisit”、“t0vload”、“t6datvisit”、“t6vload”、.......“t180datvisit ", "t180vload" 或者 按此顺序再次合并两个数据帧的列 --> "t0datvisit", "t0vload","t6datvisit", "t6vload",......."t180datvisit", "t180vload"

你知道怎么做吗？

Answer 1

考虑 mapply 映射两个数据框名称，然后转换为字符向量以获得新的列名称顺序：

df_x <- cbind(df_VL, df_dat)

ord_names <- as.vector(mapply(c, names(df_VL), names(df_dat)))

df_x <- df_x[ord_names]

Answer 2

我认为这可行

colnames( mtcars )[1:6]

# get all the numbers out of the colnames   
matches <- regmatches(colnames(mtcars), gregexpr("[[:digit:]]+",  colnames( mtcars)))
a<-unique( as.numeric(unlist(matches)) )
#order them numerically
a <- sort(a )

# create an object with the ars ordered numerically
f <- NULL 
for( b in a){ 
f <- c( f ,  paste0("t" , b, "datvisit") ,  paste0("t" , b, "vload")  )
}

# just those vars 
head( mtcars[ , f ] )

# or those vars and the other cols
others <- colnames( mtcars )[ !(colnames(mtcars) %in% f) ]
head( mtcars[ ,c( others, f)  ] )

如果你想做所有的“datvisits”，而不是“vloads”它更容易

head( mtcars[ , c( 
            grep(  "datvisit" , colnames( mtcars) ) ,
            grep(  "vload" , colnames( mtcars) )
            )])