tsibble 的平均值

Question

我想计算给定 tsibble 内每个系列的平均值。这是我的代码：

library(tsibble)

data <- tibble(
  Time = seq(as.Date("2020-01-01"), by = "1 months", length.out = 4),
  Series1 = c(3, 4, 1, 2), Series2 = c(0, 1, 2, 3)
)
ts <- as_tsibble(data, index = Time)

print(ts)
print(colMeans(ts))

它给了我

Error in colMeans(ts) : 'x' must be numeric

（这与

colMeans(data)

的错误相同。）

为什么 tsibble 不重载 colMeans 来忽略日期索引？
我还能用什么？

（这是 R 4.0.4，tsibble 1.1.4。）

Answer 1

我自己的答案：

• tsibble 不会重载 colMeans，因为它通常对于计算时间序列的整体平均值没有用处。

• 相反，我可以转换为 tibble （以防

  data

  不再可用），删除时间索引，然后调用

  colMeans

  :

  library(dplyr)
  ts_data <- select(tibble(ts), -Time)
  print(colMeans(ts_data))