在指定的行数后拆分列

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中的整数设置（我称之为＆＃34; obs＆＃34;）。所以，我想要一个通用的代码行来创建它。关于如何做到这一点的任何想法？

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  

我希望这会有所帮助。