轉置一個數據幀

Question

我有一個關於重新整形（如果這是正確的話）一個數據幀的轉置版本的問題。我想利用這樣的：

A B C 
1 6 1 
1 18 1 
1 21 1 
3 18 1 
3 21 1 
4 6 1 
4 18 1 
4 20 1 
4 21 1 

，把它變成像一個數據幀：

A B_1 C_1 B_2 C_2 B_3 C_3 ... 
1 6 1 18 1 21 1 
3 18 1 21 1 
4 6 1 18 1 20 1 21 1 

有一些去到R中，我是不知道或應該我遍歷這個功能處理？ 謝謝！

Answer 1

DF <- read.table(text="A B C 
1 6 1 
1 18 1 
1 21 1 
3 18 1 
3 21 1 
4 6 1 
4 18 1 
4 20 1 
4 21 1",header=TRUE) 

首先創建一個索引變量：

library(plyr) 
DF <- ddply(DF,.(A),transform,No=seq_along(A)) 
# A B C No 
# 1 1 6 1 1 
# 2 1 18 1 2 
# 3 1 21 1 3 
# 4 3 18 1 1 
# 5 3 21 1 2 
# 6 4 6 1 1 
# 7 4 18 1 2 
# 8 4 20 1 3 
# 9 4 21 1 4 

現在熔化data.frame並澆鑄成寬幅：

library(reshape2) 
DF <- melt(DF,id.vars=c("A","No")) 
res <- dcast(DF,A~No+variable) 
# A 1_B 1_C 2_B 2_C 3_B 3_C 4_B 4_C 
# 1 1 6 1 18 1 21 1 NA NA 
# 2 3 18 1 21 1 NA NA NA NA 
# 3 4 6 1 18 1 20 1 21 1 

訂購，即式事項：

res <- dcast(DF,A~variable+No) 
# A B_1 B_2 B_3 B_4 C_1 C_2 C_3 C_4 
# 1 1 6 18 21 NA 1 1 1 NA 
# 2 3 18 21 NA NA 1 1 NA NA 
# 3 4 6 18 20 21 1 1 1 1