如何将列表保存到文件并再次读取(在 R 中)?

How can I save a list to a file and read it in again (in R)?

我用 R 中的 poLCA 包估算了一个模型,想将起始值保存到文件中,这样我就可以随时重新估算完全相同的模型。

这是一个模型的起始值列表:

List of 8
 $ : num [1:2, 1:6] 0.219 0.193 0.16 0.193 0.184 ...
 $ : num [1:2, 1:6] 0.0731 0.2054 0.228 0.144 0.2028 ...
 $ : num [1:2, 1:6] 0.0396 0.0965 0.0286 0.1494 0.1609 ...
 $ : num [1:2, 1:6] 0.20998 0.173634 0.105792 0.000588 0.06236 ...
 $ : num [1:2, 1:6] 0.163 0.19 0.167 0.178 0.246 ...
 $ : num [1:2, 1:6] 0.1602 0.1438 0.1963 0.0848 0.2218 ...
 $ : num [1:2, 1:6] 0.0298 0.3022 0.2179 0.094 0.0228 ...
 $ : num [1:2, 1:6] 0.0167 0.2444 0.3257 0.1298 0.3652 ...

这些都是它的值:

> starting.values

[[1]]
          [,1]      [,2]       [,3]        [,4]      [,5]      [,6]
[1,] 0.2188410 0.1602971 0.18446855 0.002413188 0.1841924 0.2497878
[2,] 0.1927328 0.1926757 0.04098356 0.104583224 0.1583117 0.3107131

[[2]]
           [,1]      [,2]      [,3]      [,4]       [,5]      [,6]
[1,] 0.07310624 0.2280248 0.2027862 0.2274362 0.03105063 0.2375959
[2,] 0.20535603 0.1439554 0.1869197 0.1317791 0.20698352 0.1250063

[[3]]
           [,1]       [,2]      [,3]      [,4]       [,5]      [,6]
[1,] 0.03955110 0.02855405 0.1609203 0.3375032 0.15405189 0.2794195
[2,] 0.09650825 0.14942635 0.1016048 0.2445582 0.07646363 0.3314387

[[4]]
          [,1]         [,2]       [,3]       [,4]      [,5]      [,6]
[1,] 0.2099798 0.1057921697 0.06235958 0.06833102 0.2474372 0.3061002
[2,] 0.1736344 0.0005879314 0.06184313 0.36905589 0.2575882 0.1372904

[[5]]
          [,1]      [,2]      [,3]      [,4]      [,5]       [,6]
[1,] 0.1631299 0.1672565 0.2460589 0.2199485 0.1620184 0.04158786
[2,] 0.1900245 0.1777367 0.1136598 0.1576786 0.1147886 0.24611175

[[6]]
          [,1]       [,2]      [,3]      [,4]      [,5]       [,6]
[1,] 0.1601707 0.19628931 0.2217799 0.1985856 0.1961983 0.02697623
[2,] 0.1437703 0.08483575 0.3475932 0.1029784 0.2134874 0.10733507

[[7]]
          [,1]       [,2]       [,3]      [,4]       [,5]      [,6]
[1,] 0.0297938 0.21786564 0.02278498 0.2173179 0.28299340 0.2292443
[2,] 0.3021657 0.09397824 0.16714915 0.3072889 0.02752554 0.1018925

[[8]]
           [,1]      [,2]      [,3]      [,4]      [,5]       [,6]
[1,] 0.01670364 0.3256942 0.3652010 0.1620259 0.1111144 0.01926083
[2,] 0.24443214 0.1297942 0.3064312 0.1105086 0.1461748 0.06265905

首先我想到,我可以将列表转换为数据框并将其保存为 .csv 文件。但我不知道,我将如何读入这个文件以获得与我从模型中获得的列表完全相同的列表。

我已经查看了 Whosebug,但没有找到问题的答案。我不介意文件是 .csv、.txt 还是一个文件或多个文件。很抱歉,如果我不能为我的问题提供更多的想法或代码。我不知道从哪里开始。

saveRDS(starting.values, file="fname.RData")
?saveRDS

允许您将一个或多个 R 对象保存到一个文件中。

加载

readRDS("fname.RData")

(根据以下评论编辑,因为之前的 saveload 函数似乎不再起作用。)

我还建议您探索 rlist 包和提供的 list.save 功能,因为它在保存列表时提供了额外的灵活性。

例子

documentation.

可用
require(rlist)
x <- lapply(1:5,function(i) data.frame(a=i,b=i^2))
list.save(x, 'list.rds')
list.save(x, 'list.rdata')
list.save(x, 'list.yaml')

yaml 文件预览

- a: 1
  b: 1.0
- a: 2
  b: 4.0
- a: 3
  b: 9.0
- a: 4
  b: 16.0
- a: 5
  b: 25.0

然后您可以使用同一包中的 list.load 函数加载列表,或者您可以从导出的 yaml 文件中读取行。您还可以考虑查看 list.select 函数并从列表中选择对象。话虽如此,我认为最简单的方法就是 store/load 一个完整的列表对象。

对于那些正在获取变量名称字符的人。

vect_to_save <- c(1,2,3)
save(vect_to_save, file="vec.RData")  # Till here everything is ok. 

# Now, see the difference
vect_to_save <- load(file="vec.RData")
print(vect_to_save)  # Prints "vect_to_save"

# To load you have to
load(file="vec.RData")
print(vect_to_save)  # Now, yes!
# [1] 1 2 3

不要将 load() 的输出分配给变量。它直接将 var 加载到工作区中。