Извлечение выходных данных из привязки к кадру данных

У меня есть некоторый R-код, который выполняет некоторую операцию извлечения данных для всех файлов в текущем каталоге, используя следующий код:

files <- list.files(".", pattern="*.tts")
results <- lapply(files, data_for_time, "17/06/2006 12:00:00")

Выход из lapply следующий (извлеченный с помощью dput()) - в основном список, полный векторов:

list(c("amer", "14.5"), c("appl", "14.2"), c("brec", "13.1"), 
c("camb", "13.5"), c("camo", "30.1"), c("cari", "13.8"), 
c("chio", "21.1"), c("dung", "9.4"), c("east", "11.8"), c("exmo", 
"12.1"), c("farb", "14.7"), c("hard", "15.6"), c("herm", 
"24.3"), c("hero", "13.3"), c("hert", "11.8"), c("hung", 
"26"), c("lizr", "14"), c("maid", "30.4"), c("mart", "8.8"
), c("newb", "14.7"), c("newl", "14.3"), c("oxfr", "13.9"
), c("padt", "10.3"), c("pbil", "13.6"), c("pmtg", "11.1"
), c("pmth", "11.7"), c("pool", "14.6"), c("prae", "11.9"
), c("ral2", "12.2"), c("sano", "15.3"), c("scil", "36.2"
), c("sham", "12.9"), c("stra", "30.9"), c("stro", "14.7"
), c("taut", "13.7"), c("tedd", "22.3"), c("wari", "12.7"
), c("weiw", "13.6"), c("weyb", "8.4"))

Тем не менее, я хотел бы обработать этот вывод в виде блока данных с двумя столбцами: один для алфавитного кода ("amer", "appl" и т.д.) и один для числа (14.5, 14.2 и т.д.)).

К сожалению, as.data.frame, похоже, не работает с этим вводом вложенных векторов внутри списка. Как мне это сделать? Нужно ли изменить способ возврата моей функции data_for_time? На данный момент он просто возвращает c(name, value). Или есть хороший способ конвертировать из этого вида вывода в dataframe?

Ответы

Ответ 1

Один из вариантов может заключаться в использовании функции ldply из пакета plyr, который будет переводить все в фрейм данных для вас.

Тривиальный пример использования:

ldply(1:10,.fun = function(x){c(runif(1),"a")})
                    V1 V2
1    0.406373084755614  a
2    0.456838687881827  a
3    0.681300171650946  a
4    0.294320539338514  a
5    0.811559669673443  a
6    0.340881009353325  a
7    0.134072444401681  a
8  0.00850683846510947  a
9    0.326008745934814  a
10    0.90791508089751  a

Но обратите внимание, что если вы смешиваете типы переменных с c(), вы, вероятно, захотите изменить свою функцию, чтобы просто вернуть data.frame(name= name,value = value) вместо c(name,value). В противном случае все будет принудительно применено к символу (как в моем примере выше).

Ответ 2

Попробуйте, если results был вашим списком:

> as.data.frame(do.call(rbind, results))

     V1   V2
1  amer 14.5
2  appl 14.2
3  brec 13.1
4  camb 13.5
...

Ответ 3

inp <- list(c("amer", "14.5"), c("appl", "14.2"), .... # did not see need to copy all

data.frame( first= sapply( inp, "[", 1), 
            second =as.numeric( sapply( inp, "[", 2) ) )

   first second
1   amer   14.5
2   appl   14.2
3   brec   13.1
4   camb   13.5
5   camo   30.1
6   cari   13.8
snipped output

Ответ 4

Потому что и для Нелтона взяли ответ, который я был в процессе раздачи, и Джоран принял единственный разумный ответ, о котором я мог думать, и так как я должен писать статью здесь нелепый ответ:

#I named your list LIST
LIST2 <-  LIST[[1]]
lapply(2:length(LIST), function(i) {LIST2 <<- rbind(LIST2, LIST[[i]])})
data.frame(LIST2)