从列表中提取并保存到 csv

Question

我正在努力做一些我知道应该很简单的事情。

我有一个这样的数据框列表：

a <- rep(1, 10)
b <- rep(3.6, 10)
foo1 <- cbind(a, b)

d <- rep(2, 8)
b <- rep(4.9, 8)
foo2 <- cbind(d, b)

data <- list(foo1, foo2)

我想通过索引或列名从每个数据帧中提取第二列，并使用 write.table 并与数据帧同名保存到 csv 文件。我尝试了很多东西——for循环和lapply和sapply。

我收到各种错误消息，但主要是以下内容：

In if (file == "") file <- stdout() else if (is.character(file)) { : the condition has length > 1 and only the first element will be used

我无法解决。

我知道我没有正确索引。请帮帮我！

Answer 1

您可以使用循环遍历data 的字段：

for (i in 1:length(data)) {
    col <- data[[i]][,2]
    fname <- paste("foo", i, ".csv", sep="")
    write.table(col,fname)
}

write.table 命令可能需要进行一些调整，直到您获得所需格式的数据。