在R列表中使用名稱作爲鍵

Question

我已經得到了這一行，並且我想將文件的名稱作爲鍵添加到結果列表中。

lapply(Sys.glob('data*'), function(file) {result = do.call("rbind", fromJSON(file=file)); mode(result) <- 'numeric'; result}) 


[[1]] 
<matrix> 

應該

filename 
<matrix> 

我需要另一種結構不是一個列表？

Answer 1

filenames <- Sys.glob("data*") 

result <- lapply(filenames, function(file) {result = do.call("rbind", fromJSON(file=file)); mode(result) <- 'numeric'; result}) 

names(result) <- filenames 

Answer 2

您必須在文件名向量中設置名稱屬性。

filenames <- Sys.glob("data*") 
names(filenames) <- filenames 
result <- lapply(filenames, function(file) 
        {result = do.call("rbind", fromJSON(file=file)) 
        mode(result) <- 'numeric' 
        result})