1

我有 1000 个保存为 Rdata 的列表，全部保存在一个目录中。每个列表具有相同的名称，有 5 个项目，如下所示：

list.hv_Amano_volume

[[1]]
[1] 1.059246

[[2]]
[1] 1.047688

[[3]]
[1] 10.70799

[[4]]
[1] 10.30472

[[5]]
[1] 2.53379

当第一次将文件存储在我的目录中时，我给每个文件一个唯一的名称，即：1_list.hv_Amono_volume_rand.Rdata，

2_list.hv_Amano_volume_rand.Rdata，

3_list.hv_Amono_volume_rand.Rdata ... 1000_list.hv_Amono_volume_rand.Rdata

我已按如下方式加载了所有 1000 个 Rdata 文件：

 temp =list.files(path="mydirectory",pattern="*_list.hv_Amono_volume_rand.Rdata")

但现在我不知道如何从这个列表中提取数据，显然'temp'给了我这个

[1] "1_list.hv_Amono_volume_rand.Rdata"     "10_list.hv_Amono_volume_rand.Rdata"     
[3] "100_list.hv_Amono_volume_rand.Rdata"  "1000_list.hv_Amono_volume_rand.Rdata"
[5] "101_list.hv_Amono_volume_rand.Rdata"  "102_list.hv_Amono_volume_rand.Rdata" 
[7] "103_list.hv_Amono_volume_rand.Rdata"  "104_list.hv_Amono_volume_rand.Rdata" 
[9] "105_list.hv_Amono_volume_rand.Rdata"  "106_list.hv_Amono_volume_rand.Rdata"

[11]“107_list.hv_Amono_volume_rand.Rdata”“108_list.hv_Amono_volume_rand.Rdata”[13]“109_list.hv_Amono_volume_rand.Rdata”“11_list.hv_Amono_volume_rand.Rdata”
[15]“110_list.hv_Amono_rando_volume_rand.Rdata”“111.mono_list.hvA “……

所以我现在需要知道如何从列表中提取数据并将其绑定到具有 1000 列的数据框，如下所示：

1          2         ... 1000
1.059246   1.044808      1.046917
1.047688   1.046857      1.036242
10.70799   10.70204      10.0781
10.30472   9.319236      10.29681
2.53379    2.430255      2.482879

我试过玩这个 named.list <- lapply(temp,load)

和这个

sapply(Amono_list.hv,  function(x) load(x, .GlobalEnv), USE.NAMES=FALSE)

但老实说，我很迷茫，没有得到任何帮助，所以非常感谢您的帮助。

4

2 回答 2

0 
#This may work 
do.call(cbind,mget(paste0(1:1000,"_list.hv_Amono_volume_rand")))

#Edit: as per comments

例子：

x1<-as.list(1:3)
x2<-as.list(4:6)
save(x1,file="mydata1.RData") 
save(x2,file="mydata2.RData") 
tem<-list.files(pattern="*.RData")
str(tem)
 chr [1:2] "mydata1.RData" "mydata2.RData"
kk<-lapply(tem,load)
List of 2
 $ : chr "x1"
 $ : chr "x2"

do.call(cbind,lapply(1:2,function(i)get(kk[[i]])))
     [,1] [,2]
[1,] 1    4   
[2,] 2    5   
[3,] 3    6
于 2015-03-05T11:20:10.660 回答
0

这是未经测试的。这个想法是，当您 load() 一个文件时，会加载 R 对象。对于这个例子，我假设每个文件只包含一个 R 对象。在 getList() 函数中，我们将文件加载到临时环境中，读取它，找到名称，然后返回对象（希望是一个列表）。这里的主要假设是每个文件只有一个对象，它是一个列表。然后像你尝试过的那样使用 sapply ......

temp <-list.files(path="mydirectory",pattern="*_list.hv_Amono_volume_rand.Rdata")
e <- new.env()
getList <- function(filename){
  rm(list = ls(all = TRUE), envir=e) 
  load(filename, envir=e)
  # get name of thing you loaded... assuming just one thing there...
  theName <- ls(envir=e)[1]
  return(get(theName))
}
df <- sapply(temp, function(x)cbind(getList(x)))
于 2015-03-05T12:46:45.593 回答