将表格按列名转换为矩阵

Question

我有一个数据框，看起来像下面这样

       models cores     time
1       4     1 0.000365
2       4     2 0.000259
3       4     3 0.000239
4       4     4 0.000220
5       8     1 0.000259
6       8     2 0.000249
7       8     3 0.000251
8       8     4 0.000258

我希望将其转换为一个表/矩阵，其中#models用作行标签，#cores用作列标签，时间用作数据条目。

例如：

  1 2 3 4 5 6 7 8    
1   time data
4   time data

目前我正在使用for循环将其转换为这种结构，但我想知道是否有更好的方法？

- Mark

---

https://dev59.com/HWkw5IYBdhLWcg3w1eC7#9617424 有各种不同的方法列表，可用于实现此操作。 - Aaron left Stack Overflow

Answer 1

检查来自reshape包的cast方法

# generate test data    
x <- read.table(textConnection('
models cores  time
4 1 0.000365
4 2 0.000259
4 3 0.000239
4 4 0.000220
8 1 0.000259
8 2 0.000249
8 3 0.000251
8 4 0.000258'
), header=TRUE)


library(reshape)
cast(x, models ~ cores)

结果：

  models        1        2        3        4
1      4 0.000365 0.000259 0.000239 0.000220
2      8 0.000259 0.000249 0.000251 0.000258

- George Dontas

---

看起来我没有reshape这个package，但是我发现这个也可以用：tapply(f[,3],f[,1:2],c)。 - Mark

Answer 2

这里是使用基础函数reshape的版本：

y <- reshape(x, direction="wide", v.names="time", timevar="cores", 
             idvar="models")

输出结果为

  models   time.1   time.2   time.3   time.4
1      4 0.000365 0.000259 0.000239 0.000220
5      8 0.000259 0.000249 0.000251 0.000258

经过重塑的辛勤努力，您可以提取所需部分：

res <- data.matrix(subset(y, select=-models))
rownames(res) <- y$models
colnames(res) <- substr(colnames(res),6,7)

然后你会得到矩阵：

         1        2        3        4
4 0.000365 0.000259 0.000239 0.000220
8 0.000259 0.000249 0.000251 0.000258

- Aniko

Answer 3

您不需要使用reshape包，因为有一个内置函数reshape可以完成它。

> reshape(x,idvar="models",timevar="cores",direction="wide")
  models   time.1   time.2   time.3   time.4
1      4 0.000365 0.000259 0.000239 0.000220
5      8 0.000259 0.000249 0.000251 0.000258

- Alex Brown