2013-10-24 151 views
1

我有一個動物園元素列表。這個名單看起來是這樣的:在R列表中添加元素

> str(a) 
List of 4 
    $ :‘zoo’ series from 2013-08-08 to 2013-09-09 
    Data: num [1:33] 0 0 0 0 5.62 ... 
    Index: POSIXct[1:33], format: "2013-08-08" "2013-08-09" "2013-08-10" "2013-08-11" ... 
$ :‘zoo’ series from 2013-08-08 to 2013-09-09 
    Data: num [1:33] 0 0 0 0 0 ... 
    Index: POSIXct[1:33], format: "2013-08-08" "2013-08-09" "2013-08-10" "2013-08-11" ... 
$ :‘zoo’ series from 2013-08-08 to 2013-09-09 
    Data: num [1:33] 7.4 10.7 0 0 0 ... 
    Index: POSIXct[1:33], format: "2013-08-08" "2013-08-09" "2013-08-10" "2013-08-11" ... 
$ :‘zoo’ series from 2013-08-08 to 2013-09-09 
    Data: num [1:33] 0 588 0 0 0 ... 
    Index: POSIXct[1:33], format: "2013-08-08" "2013-08-09" "2013-08-10" "2013-08-11" ... 

現在,我可以這樣做繪製這些動物園元素的總和:

plot(z <- a[[1]] + a[[2]] + a[[3]] + a[[4]]) 

我想知道是否有一個簡單的方法來做到這一點補充列出列表中的所有元素。 類似於

# PYSEUDO CODE NOT WORKING! 
plot(z <- foo(a)) 

非常感謝!

回答

5

我不知道我完全理解,但我認爲你正在尋找Reduce(),如果不是請提供樣本數據和您想要的結果的例子。考慮這個例子:

> a <- list(rnorm(5),rnorm(5),rnorm(5),rnorm(5)) 
> a[[1]] + a[[2]] + a[[3]] + a[[4]] 
[1] 1.06310824 -0.20176594 -2.09269676 0.01593767 -1.30949132 
> Reduce("+",a) 
[1] 1.06310824 -0.20176594 -2.09269676 0.01593767 -1.30949132 
+0

你清楚地明白我的問題,並且明確地回答了我,謝謝! –