добавить элементы внутри списка в R

Question

У меня есть список элементов зоопарка. И этот список выглядит следующим образом:

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

Спасибо большое!

Answer 1

Я не уверен, что полностью понимаю, но я думаю, что вы ищете 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