2

对于使用过包的人来说，这似乎是一个明显的问题，reshape但我正在尝试使用它的功能，但我无法找出正确的语法！

让我们有以下数据框，

df <- data.frame(matrix(1:12,ncol=3),row.names=letters[1:4])

  X1 X2 X3
a  1  5  9
b  2  6 10
c  3  7 11
d  4  8 12

我们如何将行绑定到列中以获得以下结果？

  X1.a X2.a X3.a X1.b X2.b X3.b X1.c X2.c X3.c X1.d X2.d X3.d
     1    5    9    2    6   10    3    7   11    4    8   12

谢谢

4

3 回答 3

6

这也可以：

vec <- c(t(df))
names(vec) <- c(outer(colnames(df), rownames(df), paste, sep="."))

## > vec
## X1.a X2.a X3.a X1.b X2.b X3.b X1.c X2.c X3.c X1.d X2.d X3.d 
##    1    5    9    2    6   10    3    7   11    4    8   12
于 2013-03-31T18:23:46.843 回答
3

由于您希望将其作为向量，因此不需要reshapepers。您可以只unlist使用它，然后使用它setNames来相应地设置名称。

df.t <- as.data.frame(t(df))
vec <- unlist(df.t, use.names=FALSE) # gives a vector not matrix/data.frame
vec.names <- do.call(paste, c(expand.grid(rownames(df.t), colnames(df.t)), sep="."))
vec <- setNames(vec, vec.names)

# X1.a X2.a X3.a X1.b X2.b X3.b X1.c X2.c X3.c X1.d X2.d X3.d 
#    1    5    9    2    6   10    3    7   11    4    8   12
于 2013-03-31T18:18:04.870 回答
2

这是一个：

m <- melt(cbind(df, rn=rownames(df)), id.vars='rn')
cast(m, ~ rn + variable)

##   value a_X1 a_X2 a_X3 b_X1 b_X2 b_X3 c_X1 c_X2 c_X3 d_X1 d_X2 d_X3
## 1 (all)    1    5    9    2    6   10    3    7   11    4    8   12

或者如 Arun 所示，acast给出一个矩阵（没有附加value列）：

acast(m, . ~ variable+rn)
##      X1_a X1_b X1_c X1_d X2_a X2_b X2_c X2_d X3_a X3_b X3_c X3_d
## [1,]    1    2    3    4    5    6    7    8    9   10   11   12

（请注意，由于公式被翻转，排列顺序相反。）

于 2013-03-31T18:09:08.820 回答