我有下表:
X Y
A 4 8
B 2 6
C 5 4
D 6 3
E 9 13
Run Code Online (Sandbox Code Playgroud)
但我想重新安排它看起来像:
AX AY BX BY CX CY......
4 8 2 6 5 4
Run Code Online (Sandbox Code Playgroud)
我在R工作并通过这样做得到了表
table(db[,1],db[,2])
Run Code Online (Sandbox Code Playgroud)
如何更改命令以获得所需的输出?
如果您不关心名称并且您有数字数据,那么最简单的解决方案是强制转换为矩阵,然后转换为这样的向量:
as.vector( t( x ) )
# [1] 4 8 2 6 5 4 6 3 9 13
Run Code Online (Sandbox Code Playgroud)
如果您还想保留名称,请使用expand.grid以获取组合...
# The data
y <- as.vector( t( x ) )
# Combinations of row and column names
nms <- expand.grid( colnames(x) , rownames(x) )
# Rename vector with desired names
names(y) <- paste0( nms[,2] , nms[,1] )
#AX AY BX BY CX CY DX DY EX EY
# 4 8 2 6 5 4 6 3 9 13
Run Code Online (Sandbox Code Playgroud)
| 归档时间: |
|
| 查看次数: |
146 次 |
| 最近记录: |