[R重塑，由大块

Question

我想重塑一个数据帧重组数据帧：

目前，它看起来像这样：

ID | Gender |A1 | A2 | A3 | B1 | B2 | B3 
ID_1 | m  | 3 | 3 | 3 | 2 | 3 | 2 
ID_2 | f  | 1 | 1 | 1 | 4 | 4 | 4 

我想有这样的：

ID | Gender | A1 | A2 | A3 
ID_1 | m  | 3 | 3 | 3 <- this would be columns A1 - A3 for ID 1 
ID_1 | m  | 2 | 2 | 2 <- this would be columns B1 - B3 for ID 1 
ID_2 | f  | 1 | 1 | 1 <- this would be columns A1 - A3 for ID 2 
ID_2 | f  | 4 | 4 | 4 <- this would be columns B1 - B3 for ID 2 

（ A1和B1/A2和B2是相同的变量（关于内容），例如：A1和B1将是测试1结果的变量，A2和B2都包含测试2的结果。因此，在为了评估使用它我需要一列中的Test1的结果和另一列中的所有Test2的结果。 我试图用“融化”来解决这个问题，但它只能将数据框一个接一个地融化，而不是大块。 （因为我需要保持前2列的方式，只重新排列最后4列，但作为三个块） 任何其他想法？谢谢！

Answer 1

一个衬垫使用reshape从基地R.

reshape(dat, varying = 3:8, idvar = 1:2, direction = 'long', drop=FALSE, 
    timevar = 'Test') 

      ID Gender Test Test1 Test2 Test3 
ID_1.m.A ID_1  m A A1 A2 A3 
ID_2.f.A ID_2  f A A1 A2 A3 
ID_1.m.B ID_1  m B B1 B2 B3 
ID_2.f.B ID_2  f B B1 B2 B3 

Answer 2

正如@Andrie所说，第一步就是用给定的列（ID和性别）来融合数据。正如你所说，你的问题是确定哪些列然后“走到一起”。这里有一种方法，最初将这些信息编码成列名，然后从那里拉出来。

首先是一些虚拟数据

dat <- data.frame(ID=c("ID_1", "ID_2"), Gender=c("m","f"), 
    Test1.A = "A1", Test2.A = "A2", Test3.A = "A3", 
    Test1.B = "B1", Test2.B = "B2", Test3.B = "B3", stringsAsFactors=FALSE) 

请注意，我已经与系统指示哪些测试和基时，一部分的名字命名的列。

> dat 
    ID Gender Test1.A Test2.A Test3.A Test1.B Test2.B Test3.B 
1 ID_1  m  A1  A2  A3  B1  B2  B3 
2 ID_2  f  A1  A2  A3  B1  B2  B3 

使用reshape2包

library("reshape2") 

熔体中的数据，再取variable柱，其具有的两个信息在它（测试和组），和分割信息的这两个比特到两个单独的列。

dat.m <- melt(dat, id.vars=c("ID", "Gender")) 
dat.m <- cbind(dat.m, colsplit(dat.m$variable, "\\.", names=c("Test", "Group"))) 

现在很容易投射，因为测试和组是分开的。

dcast(dat.m, ID+Gender+Group~Test) 

其中给出

> dcast(dat.m, ID+Gender+Group~Test) 
    ID Gender Group Test1 Test2 Test3 
1 ID_1  m  A A1 A2 A3 
2 ID_1  m  B B1 B2 B3 
3 ID_2  f  A A1 A2 A3 
4 ID_2  f  B B1 B2 B3 

Answer 3

如何：

> dat <- data.frame(id=c("id1","id2"),gender=c("m","f"),a.1=1:2,a.2=1:2,a.3=1:2,b.1=3:4,b.2=3:4,b.3=3:4) 
> dat1 <- dat[,-(3:5)] 
> dat2 <- dat[,-(6:8)] 
> names(dat1)[3:5] <- c("v1","v2","v3") 
> names(dat2)[3:5] <- c("v1","v2","v3") 
> 
> dat1$test <- "b" 
> dat2$test <- "a" 
> result <- rbind(dat1,dat2) 
> dat 
    id gender a.1 a.2 a.3 b.1 b.2 b.3 
1 id1  m 1 1 1 3 3 3 
2 id2  f 2 2 2 4 4 4 
> result 
    id gender v1 v2 v3 test 
1 id1  m 3 3 3 b 
2 id2  f 4 4 4 b 
3 id1  m 1 1 1 a 
4 id2  f 2 2 2 a 

Answer 4

我喜欢Brian的回答更好，但这里有一个方法与基本包做。虽然在我看来很丑。

您的数据框：

DF 
     id sex v1 v2 v3 v4 v5 v6 
    1 ID_1 male A1 A2 A3 B1 B2 B3 
    2 ID_2 female A1 A2 A3 B1 B2 B3 

代码

DFa<-subset(DF, select=c(1:5)) 
DFb<-subset(DF, select=c(1:2, 6:8)) 
colnames(DFb)<-colnames(DFa) 
DF<-as.data.frame(rbind(DFa,DFb)) 
rownames(DF)<-1:nrow(DF) 
DF[order(DF$id),]