извлечение из списка и сохранение в csv

Question

Я изо всех сил пытаюсь сделать что-то, что я знаю, должно быть простым.

У меня есть список dataframes так:

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) 

Я хочу, чтобы извлечь 2-й столбец из каждой dataframe, либо путем индексации или по имени столбца, и сохранить в файл CSV с помощью write.table и с тем же именем, что и dataframe. Я пробовал много вещей --- для петель и 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, скорее всего, потребуется немного настройки, пока вы не получите данные в формате, который вы хотите.