使用自定义名称进行转置/重塑

Question

要创建所需的样本:

require(pacman)
p_load(data.table)
DT_start <- data.table(ID = c(1,1,1,2,2,2), valueA = c("a1","a2","a3","b1","b2","b3"), valueB = c("A1","A2","A3","B1","B2","B3"))
DT_end <- data.table(ID = c(1,2)
                     , T01_valueA = c("a1","b1")
                     , T02_valueA = c("a2","b2")
                     , T03_valueA = c("a3","b3")
                     , T01_valueB = c("A1","B1")
                     , T02_valueB = c("A2","B2")
                     , T03_valueB = c("A3","B3"))
setcolorder(DT_end, c("ID","T01_valueA","T01_valueB","T02_valueA","T02_valueB","T03_valueA","T03_valueB"))

我有:

> DT_start
   ID valueA valueB
1:  1     a1     A1
2:  1     a2     A2
3:  1     a3     A3
4:  2     b1     B1
5:  2     b2     B2
6:  2     b3     B3

我需要:

> DT_end
   ID T01_valueA T01_valueB T02_valueA T02_valueB T03_valueA T03_valueB
1:  1         a1         A1         a2         A2         a3         A3
2:  2         b1         B1         b2         B2         b3         B3

怎么实现呢？基本上转换DT_start为DT_end自定义名称:T01, T02, T03...

Answer 1

最后使用DTNote中的输入,我们在ID列中创建一个序列s,将其融合成长形,然后将其转换回所需的宽格式.(dcast公式可以替代地写成ID ~ s + variable.)

library(data.table)

DT[, s := sprintf("T%02d", seq_along(.I)), ID]
m <- melt(DT, id.vars = c("ID", "s"))
dcast(m, ID ~ ...)

赠送:

   ID T01_valueA T01_valueB T02_valueA T02_valueB T03_valueA T03_valueB
1:  1         a1         A1         a2         A2         a3         A3
2:  2         b1         B1         b2         B2         b3         B3

注意:

使用的输入:

library(data.table)

DF <- structure(list(ID = c(1L, 1L, 1L, 2L, 2L, 2L), valueA = c("a1", 
 "a2", "a3", "b1", "b2", "b3"), valueB = c("A1", "A2", "A3", "B1", 
 "B2", "B3")), class = "data.frame", 
 row.names = c(NA, -6L))
DT <- as.data.table(DF)