如何将列表中的元素转换为R中的数据框

Question

我在 R 中有一个小问题要解决。我在 R 中有这个列表 a1：

> a1
[[1]]
  x1 x2 x3
1  1  1  1
2  2  2  2
3  2  2  2
4 13 13 13
5 12 12 12
6 23 23 23
7 12 12 12

[[2]]
  x1 x2 x3
1  2  2  2
2  2  2  2
3  2  2  2
4 13 13 13
5 12 12 12
6 23 23 23
7 12 12 12

[[3]]
  x1 x2 x3
1  3  3  3
2  2  2  2
3  2  2  2
4 13 13 13
5 12 12 12
6 23 23 23
7 12 12 12

我的问题是我无法将所有元素提取为数据框。例如，我使用此代码将它们提取为数据框，但出现此错误：

for(i in c(1:3))
{
  paste("a",i)=as.data.frame(a1[i])
}
Error in paste("a", i) = as.data.frame(a1[i]) : 
  target of assignment expands to non-language object

我的问题是列表有 20 个元素，当我输入 a1=as.data.frame(a1[1]) 时它可以工作，但我必须写很多行，因为显示的 for 代码不起作用。谢谢你的帮助。

Answer 1

您应该将您的元素保存在一个列表中，最好使用lapply 以避免副作用。例如尝试这样的事情：

 lapply(a1,write.csv)

编辑添加 flodel 答案：

filenames <- paste0(seq_along(a1), ".csv")
mapply(write.csv, a1, file = filenames)

Answer 2

如果我正确理解您的目标，分两步：

1. 为您的列表项添加名称。
2. 使用list2env 在您的工作区中创建对象。

这是一个例子：

mylist <- list(data.frame(matrix(1:4, ncol = 2)),
               data.frame(matrix(5:8, ncol = 2)),
               data.frame(matrix(9:12, ncol = 2)))
names(mylist) <- LETTERS[seq_along(mylist)]
mylist
# $A
#   X1 X2
# 1  1  3
# 2  2  4
# 
# $B
#   X1 X2
# 1  5  7
# 2  6  8
# 
# $C
#   X1 X2
# 1  9 11
# 2 10 12

A
# Error: object 'A' not found

list2env(mylist, envir=.GlobalEnv)
# <environment: R_GlobalEnv>

A
#   X1 X2
# 1  1  3
# 2  2  4