计算并绘制滚动平均

您要生成的最后一个棒球指标是 L10，即前 10 场比赛的胜负滚动平均。累计胜负平均可以告诉您球队整体表现如何，而 L10 指标能更具体地反映球队的近期状态。超出体育领域之外，这一度量可类比为关注「近期」投资组合表现的金融指标。

要生成胜负的滚动平均，请回到上一章使用过的 rollapply() 命令。本题中，您需要在 2013 赛季的任意时间点，将 mean 函数应用于红袜队最近的 10 场比赛。

工作区中已提供 redsox_xts 对象，其中包含 win_loss 列。

本练习是课程的一部分

案例研究：在 R 中分析城市时间序列数据

查看课程

练习说明

生成仅包含 2013 赛季的新 xts 对象，并命名为 redsox_2013。
使用 rollapply() 基于 redsox_2013 的 win_loss 列计算 lastten_2013 指标。将 width 设为 10（包含红袜队最近的 10 场比赛），并将 FUN 参数设为 mean 以计算 win_loss 列的平均值。
使用 plot.xts() 在 2013 赛季中查看新指标。预写代码中的 ylim 参数保持不变。

交互式实操练习

通过完成这段示例代码来试试这个练习。

# Select only the 2013 season
redsox_2013 <- ___["___"]

# Use rollapply to generate the last ten average
lastten_2013 <- rollapply(___$___, width = ___, FUN = ___)

# Plot the last ten average during the 2013 season
plot.xts(___, ylim = c(0, 1))

编辑并运行代码