將列表寫入文本文件，保留名稱，R

Question

我想寫一個列表到文本文件，保留名稱。

這類似於R: Print list to a text file但我也想打印出來的名字，在每行的開頭：

> print(head(mylist,2)) 
$first 
[1] 234984 10354 41175 932711 426928 
$second 
[1] 1693237 13462 

mylist.txt 
first 234984 10354 41175 932711 426928 
second 1693237 13462 

任何想法？

非常感謝。

Answer 1

cat函數將打印到設備（默認爲控制檯），並且不添加任何常用註釋，但它不能接受列表作爲參數，因此所有內容都必須是原子向量。 deparse(substitute()) gambit是恢復傳遞給函數的列表名稱的方式。在函數內部只需使用names(x)將無法​​恢復原始參數的名稱。

mylist <- list(first =c(234984, 10354, 41175, 932711, 426928), 
       second =c(1693237, 13462)) 
fnlist <- function(x){ z <- deparse(substitute(x)) 
         cat(z, "\n") 
         nams=names(x) 
        for (i in seq_along(x)) cat(nams[i], x[[i]], "\n")} 
fnlist(mylist) 
mylist 
second 234984 10354 41175 932711 426928 
first 1693237 13462 

此版本將輸出文件（你可以，如果你的名字之間想要的標籤和值

fnlist <- function(x, fil){ z <- deparse(substitute(x)) 
         cat(z, "\n", file=fil) 
         nams=names(x) 
        for (i in seq_along(x)){ cat(nams[i], "\t", x[[i]], "\n", 
              file=fil, append=TRUE) } 
         } 
fnlist(mylist, "test") 

Answer 2

你可以得到你需要與一個字符串矢量替代「\ t」的：

sapply(names(mylist),function(x) paste(x,paste(mylist[[x]],collapse=" "))) 
            first 
"first 234984 10354 41175 932711 426928" 
            second 
        "second 1693237 13462" 

然後你就可以用write或writeLines寫。

Answer 3

如果您想保存列表以備將來在R中使用，請考慮rlist軟件包。

地說：

library("rlist") 
list.save(mylist, "mylist.rds") 

然後你就可以收回名單，包括姓名，具有：

mylist <- list.load("mylist.rds") 

「.rds」 不會給一個文本文件，但會完全恢復。 「.yaml」會給出一個文本文件，但是一些數據結構在重新加載時會丟失。儘管文本文件可能不太可讀，並且嵌套列表結構可能被簡化（例如，list(1, 2, 3)將變成矢量1:3），但「.json」幾乎給出了兩者中的最佳結果。

Answer 4

@ 42-

要添加到42的回答（應該是一個評論，但隨後我無法格式化代碼）

我需要同時打印元素的的姓名在列表中的載體，所以我說這行貓上述聲明，如下：

mylist <- list(first =c(a = 234984, b = 10354, c = 41175, d = 932711, e = 426928), 
      second =c(A = 1693237, B = 13462)) 


fnlist <- function(x, fil){ z <- deparse(substitute(x)) 
cat(z, "\n", file=fil) 
nams=names(x) 
for (i in seq_along(x)){ 
    cat("", "\t", paste(names(x[[i]]), "\t"), "\n", file=fil, append=TRUE) 
    cat(nams[i], "\t", x[[i]], "\n", file=fil, append=TRUE) } 
} 
fnlist(mylist, "test") 

結果

mylist 
     a  b  c  d  e  
first 234984 10354 41175 932711 426928 
     A  B 
second 1693237 13462