按列名将表转换为矩阵[重复]

检查从整形包强制转换的方法

# 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

下面是一个使用基函数的版本 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

你没有 需要 整形包,有一个内置函数 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