如何在R或Excel中从列到行转置不同的组

Question

我搜索了一些答案，但似乎没有人可以回答我的问题

我有一个看起来像这样的数据（2列，2组“ 1”组和“ 2”组）

• 1 10
• 1 20
• 1 50
• 2 40
• 2 30
• 2 60

我想按每个组将其从列到行进行转置，结果将如下所示

• 1 1 1
• 10 20 50
• 2 2 2
• 40 30 60

由于我有很多小组，因此我无法一一手动进行。 谁能帮我吗？ 谢谢。

谢谢大家，由于所有组的长度相同（受Floris的评论启发），实际上我可以简单地使用矩阵来解决问题

    x=read.table(header=F,text="10 20 50 40 30 60")
    matrix(x,nrow=2,byrow=T)

Answer 1

x <- read.table(header=F, text="1 10
1 20
1 50
2 40
2 30
2 60")

do.call(rbind, by(x, x$V1, FUN=t))
##     1  2  3
## V1  1  1  1
## V2 10 20 50
## V1  2  2  2
## V2 40 30 60

Answer 2

如果您知道如何使用VBA，则编写一个简短的sub（）可以为您做这件事很简单。 我正在对地址进行严格编码-您可以弄清楚如何移动它。 我假设调用此宏时您的数据在活动工作表上，并且您希望副本显示在原始文件的右侧（它们在A和B列中，从第2行开始-为上方留有一个标签空间） ）。 我还要假设您的组编号为1、2、3 ...，并且您不需要复制其值。 然后，代码如下所示（按F-11键打开VBA编辑器，插入模块，然后复制它）

Sub bigSwap()
dim R as Range, c as Range
dim grp
dim grpCount(1 To 100) ' assuming no more than 100 groups, or adjust this number
dim i

' just making sure it's properly initialized
for i=1 To 100
  grpCount(ii)=0
next i


Set R = Range("B2", [B2].End(xlDown)) ' this finds all the cells with values
' note - I am using [B2] as shorthand for Range("B2")

For each c in R.cells
  grp = c.offset(0, -1).value  ' find the corresponding group
  [D1].offset(grp, grpCount(grp)).value = c.value
  grpCount(grp) = grpCount(grp)+1  ' keep track of # in this row
next

End Sub

我无法对此进行测试，但我相信它很好。 如果遇到问题，请发表评论。

Answer 3

将单元簇从列转置为行

假设A2：A16包含数据，请尝试...

C2，上下复制：

=INDEX($A$2:$A$16,ROWS(C$2:C2)*3-3+COLUMNS($C2:C2))

相应地调整参考。

先尝试一行，然后再进行下一行，然后合并