拆分列行

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 

我希望这有助于。