在R中的动物园对象行之间应用功能

Question

我想为此动物园对象的每一行计算平均值，因此最后我需要有一个新的动物园对象，每一分钟的平均值。实际上，我正在尝试应用更高级的统计信息，但是从计算角度来看，它应该与平均值相同。

头（zs）

2014-03-09 08:00:00 1839.00 1842.00 1849.00 1838.50 1851.75 1843.50 1862.50 1874.00 1875.00 1878.00
2014-03-09 08:01:00 1838.75 1842.00 1848.75 1838.25 1851.75 1844.25 1862.50 1874.00 1875.25 1877.75
2014-03-09 08:02:00 1838.50 1842.25 1848.25 1838.25 1851.50 1843.75 1862.50 1874.00 1875.50 1878.00
2014-03-09 08:03:00 1839.25 1842.50 1848.25 1838.50 1851.50 1843.00 1862.25 1874.00 1875.50 1877.75
2014-03-09 08:04:00 1839.25 1842.50 1848.25 1838.00 1851.50 1843.00 1862.25 1874.25 1875.25 1877.75
2014-03-09 08:05:00 1838.75 1842.25 1848.25 1837.75 1851.75 1843.50 1862.25 1874.00 1875.50 1877.75

Answer 1

尝试这个：

zoo(rowMeans(zs), time(zs))

要么

zoo(apply(zs, 1, mean), time(zs))

要么

Reduce(`+`, as.list(zs)) / ncol(zs)

要么

zmean <- zs[, 1]
for(i in 2:ncol(zs)) zmean <- zmean + zs[, i]
zmean <- zmean / ncol(zs)

添加了更多方法