拆分列行

Question

的指定數目我有這樣一個數據幀：

TEST <- data.frame(
    Segment = c("A", "A", "A", "B", "B", "B"), 
    Value = c("0", "0", "0","1", "1", "1")) 

導致以下：

Row # Segment Value 
1  A  0 
2  A  0 
3  A  0 
4  B  1 
5  B  1 
6  B  1 

我怎麼能變成這樣的數據幀嗎？

Row # Segment Value Segment Value 
1  A  0  B  1 
2  A  0  B  1 
3  A  0  B  1 

每個段的觀察次數相等，並由R中的整數（我稱之爲「obs」）設置。所以，我想要一個普通的代碼行來創建它。任何想法如何做到這一點？

Answer 1

嘗試：

do.call(cbind,split(TEST, TEST$Segment)) 

# A.segment A.value B.segment B.value 
# A   0  B   1  
# A   0  B   1  
# A   0  B   1 

我希望這有助於。