2016-01-06 148 views
2

我的数据使用dput在下面呈现。将数据帧列表转换为单个数据帧并更改列名称

dat <- structure(list(`60` = structure(c(25.2142857142857, 25.2142857142857, 
25.2142857142857, 16.8333333333333, 6.18181818181818, 6.45454545454545, 
39.3076923076923, 17.8, 30.2307692307692, 31.9090909090909, 338.872342659885, 
338.872342659885, 338.872342659885, 312.566239187662, 108.98770426029, 
132.000329498368, 295.499325777881, 289.05210119046, 279.319320138619, 
282.696361655751), .Dim = c(10L, 2L), .Dimnames = list(NULL, 
    c("CanCov", "Aspect"))), `100` = structure(c(22.2285714285714, 
21.8285714285714, 22.2285714285714, 17.4285714285714, 7.54054054054054, 
5.51351351351351, 32.8823529411765, 18.0285714285714, 31.3125, 
32.5833333333333, 328.300126247896, 336.611388179775, 328.300126247896, 
288.830157290819, 132.674633942446, 122.597267778504, 295.162359106757, 
254.508961455896, 280.326744650874, 287.386617538886), .Dim = c(10L, 
2L), .Dimnames = list(NULL, c("CanCov", "Aspect"))), `500` = structure(c(10.786941580756, 
10.7688787185355, 10.8489702517162, 10.7628278221209, 14.1569301260023, 
12.9438717067583, 12.8735632183908, 10.8551724137931, 20.729667812142, 
23.3722794959908, 195.270942450807, 195.540990751048, 195.662725661548, 
190.688980052674, 165.038240066186, 133.772446928244, 198.45485951978, 
188.942107644257, 203.862336021767, 217.567077176237), .Dim = c(10L, 
2L), .Dimnames = list(NULL, c("CanCov", "Aspect"))), `1000` = structure(c(10.3804067602406, 
10.3746059042706, 10.381156930126, 9.8993981083405, 13.26243567753, 
13.6912732474964, 11.3125, 9.73461208130547, 17.5430539609644, 
18.8537492844877, 174.841410186063, 174.803449739022, 174.777413321887, 
169.181037352303, 148.07213983955, 145.460198642085, 157.562633627451, 
162.484978829108, 159.688505118645, 163.433969343022), .Dim = c(10L, 
2L), .Dimnames = list(NULL, c("CanCov", "Aspect")))), .Names = c("60", 
"100", "500", "1000")) 

我有一个包含四个元素(名为60,100,500和1000)的列表。

> str(dat) 
List of 4 
$ 60 : num [1:10, 1:2] 25.21 25.21 25.21 16.83 6.18 ... 
    ..- attr(*, "dimnames")=List of 2 
    .. ..$ : NULL 
    .. ..$ : chr [1:2] "CanCov" "Aspect" 
$ 100 : num [1:10, 1:2] 22.23 21.83 22.23 17.43 7.54 ... 
    ..- attr(*, "dimnames")=List of 2 
    .. ..$ : NULL 
    .. ..$ : chr [1:2] "CanCov" "Aspect" 
$ 500 : num [1:10, 1:2] 10.8 10.8 10.8 10.8 14.2 ... 
    ..- attr(*, "dimnames")=List of 2 
    .. ..$ : NULL 
    .. ..$ : chr [1:2] "CanCov" "Aspect" 
$ 1000: num [1:10, 1:2] 10.4 10.4 10.4 9.9 13.3 ... 
    ..- attr(*, "dimnames")=List of 2 
    .. ..$ : NULL 
    .. ..$ : chr [1:2] "CanCov" "Aspect" 

我想制作一个单一的8乘10数据框,列对应于列表名称。具体而言,这些列将标记为CanCov_60,Aspect_60,CanCov_100,...,CanCov_1000,Aspect_1000,其中CanCov_60和Aspect_60的值将来自具有相应名称的列表。

我怀疑ldply是最好的功能使用,但似乎无法连接点。

回答

6

你可以在base-R上使用你的列表名称。首先,我们检索特定的数据框,然后更改列名并返回。最后,我们使用do.call(cbind(...))来创建结果。

编辑:我去了问题的标题,并假设所有的对象是数据框,并没有检查。但是,他们实际上是矩阵,正如@Damianofantini指出的那样。我已经添加了对data.frame的转换。

​​
1

一个doParallel版本,可以被并行化:

library(doParallel) 
foreach(i = seq_along(dat), .combine = cbind) %do% { 
    x <- dat[[i]] 
    colnames(x) <- paste(colnames(x), names(dat)[i], sep = "_") 
    x 
} 
-1

,你可以通过你的列表循环和复制每个矩阵收件人矩阵,(如指定)上飞重命名列名和那么只需在数据框中转换您的收件人矩阵即可。 它不会像使用apply一样快,但你应该完成工作(如果你的名单很小)。

new_dat<-matrix(nrow=10, ncol =0) 

for (i in 1:length(dat)){ 
    colnames(dat[[i]]) <- paste(colnames(dat[[i]]), "_", names(dat)[i], sep='') 
    new_dat<-cbind(new_dat,dat[[i]]) 
} 
new_dat<- data.frame(new_dat, stringsAsFactors = FALSE) 
print(new_dat) 
+0

解释你改变了什么。 – lyndact

+0

你说得对,这样做可以完成工作,但是对于循环,尤其是成长中的物体来说,这不是一个好习惯。不必要的将数据帧转换为矩阵并返回。 – Heroka

+0

1-赫罗卡,你的解决方案有点优雅,谢谢..今天我学到了一些东西。 2-列表包含矩阵,我只在最后将矩阵转换为数据帧。 3-有趣的事实。要求是产生一个数据框,所有的代码都返回矩阵类对象!我的代码是唯一一个返回data.frame,但我得到了一个负1 ...大声笑。 –

1

这种方法与Heroka的方法非常相似,但是,我相信它会稍微快一点。这是因为dplyr::bind_colsis considerably fasterdo.call(cbind())的方法。不幸的是,要使用dplyr::bind_cols,列表中的所有元素都必须是data.frame s。因此,我需要采用Map(即mapply)策略,它既将矩阵转换为data.frame,又更改变量名称。

library(dplyr) 

res <- Map(function(x, y){colnames(x) = paste(colnames(x), y, sep = "_"); as.data.frame(x)}, x = dat, y = names(dat)) %>% 
    bind_cols(.)