Вопрос относительно llply или lapply - применение функций к data.frames в списке - PullRequest
Новая
       30

Вопрос относительно llply или lapply - применение функций к data.frames в списке

0 голосов
/ 25 сентября 2011

Уважаемое сообщество пользователей R,

У меня есть много data.frames в списке следующим образом (для удобства показан только один data.frame в списке из 21): 

> str(datal)
List of 21
 $ BallitoRaw.DAT                :'data.frame': 1083 obs. of  3 variables:
  ..$ Filename: Factor w/ 21 levels "BallitoRaw.DAT",..: 1 1 1 1 1 1 1 1 1 1 ...
  ..$ date    :Class 'Date'  num [1:1083] 7318 7319 7320 7321 7322 ...
  ..$ temp    : num [1:1083] NA 25.8 NA NA NA NA NA NA NA 24.4 ...

Если я работаю с каждым data.frame в списке по отдельности, я могу создать объект зоопарка из температуры и даты, например: 

> BallitoRaw.zoo <- zoo(datal$BallitoRaw.DAT$temp, datal$BallitoRaw.DAT$date)

Объект зоопарка выглядит так:1011 * Как мне использовать llply или применить (или подобное), чтобы работать со всем списком сразу?

Вывод должен перейти в новый список data.frames или в серию независимых data.frames (каждый из которых назван так, как в примере с зоопарком выше).Обратите внимание, что столбец даты, хотя и является регулярным временным рядом (днями), содержит пропущенные даты (в дополнение к NA для временных значений существующих дат);недостающие даты будут заполнены функцией зоопарка.Таким образом, выходной файл data.frame с объектом zoo будет длиннее исходного.

Помощь, любезно оцененная.

Ответы [ 2 ]

3 голосов
/ 25 сентября 2011 
makeNamedZoo <- function(dfrm){ dfrmname <- deparse(substitute(dfrm))
  zooname <-dfrmname
   assign(zooname,   zoo(dfrm$temp, dfrm$date))
   return(get(zooname)) }
ListOfZoos <- lapply(dflist, makeNamedZoo)
names(ListOfZoos) <- paste( sub("DAT$", "", names(dflist) ), "zoo", sep="")

Вот простой тестовый пример: 

df1 <- data.frame(a= letters[1:10], date=as.Date("2011-01-01")+0:9, temp=rnorm(10) )
df2 <- data.frame(a= letters[1:10], date=as.Date("2011-01-01")+0:9, temp=rnorm(10) )
dflist <- list(dfone.DAT=df1,dftwo.DAT=df2)
ListOfZoos <- lapply(dflist, makeNamedZoo) 
names(ListOfZoos) <- paste( sub("DAT$", "", names(dflist) ), "zoo", sep="")

$dfone.zoo
2011-01-01 2011-01-02 2011-01-03 2011-01-04 2011-01-05 2011-01-06 2011-01-07 
 0.7869056  1.6523928 -1.1131432  1.2261783  1.1843587  0.2673762 -0.4159968 
2011-01-08 2011-01-09 2011-01-10 
-1.2686391 -0.4135859 -1.4916291 

$dftwo.zoo
2011-01-01 2011-01-02 2011-01-03 2011-01-04 2011-01-05 2011-01-06 2011-01-07 
 0.7356612 -0.1263861 -1.6901240 -0.6441732 -1.4675871  2.3006544  1.0263354 
2011-01-08 2011-01-09 2011-01-10 
-0.8577544  0.6079986  0.6625564
1 голос
/ 27 февраля 2012

Это более простой способ достичь того, что мне было нужно: 

tozoo <- function(x) zoo(x$temp, x$date) 
data1.zoo <- do.call(merge, lapply(split(data1, data1$Filename), tozoo))

В результате получился красивый зоопарк.

...