問題有關llply或lapply - 應用功能data.frames列表中的

親愛的[R用戶社區，問題有關llply或lapply - 應用功能data.frames列表中的

我在列表中有許多data.frames，具體如下（僅在21個列表中的一個data.frame爲了方便所示）：

> 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)

動物園物體看起來像這個：

> head(BallitoRaw.zoo) 
1990-01-14 1990-01-15 1990-01-16 1990-01-17 1990-01-18 1990-01-19 
     NA  25.8   NA   NA   NA   NA

如何一次性使用llply或應用（或類似）工作在整個列表中？

輸出需要進入一個新的data.frames列表或一系列獨立的data.frames（每個都在上面的動物園示例中命名）。請注意，日期列雖然是常規時間序列（天），但包含缺失日期（除了現有日期臨時數的NAs外）;缺失的日期將由動物園功能填充。因此，動物園對象的輸出data.frame會比原來的要長。

幫助欣賞。

來源

2011-09-25 AJ Smit

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

來源

2011-09-25 14:50:26

這是一個簡單的方法來達到我需要的東西：

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

結果是一個很好的動物園對象。

來源

2012-02-27 13:45:11

問題有關llply或lapply - 應用功能data.frames列表中的

回答

相關問題