将列表格式的数据框转换为R中的矩阵格式

Question

我在R中有以下data.frame。

(df1 <- data.frame(col1=rep(c('a','b','c'),each=3),
                   col2=rep(c('d','e','f'),3),
                   col3=1:9))

  col1 col2 col3
1    a    d    1
2    a    e    2
3    a    f    3
4    b    d    4
5    b    e    5
6    b    f    6
7    c    d    7
8    c    e    8
9    c    f    9

我想将其转换为以下格式。

  d e f
a 1 2 3
b 4 5 6
c 7 8 9

最简单的方法是什么？

Answer 1

一个选项是xtabs

xtabs(col3~ col1 + col2, df1)

---

或使用acast

reshape2::acast(df1, col1 ~ col2)