平滑 R 中的分类数据序列

Question

我的数据集中的一列是“Movement_Stats”，它包含“前进”、“后退”和“停止”。每行代表一个图像帧。所以这个列看起来像：“前进，前进，前进，后退，前进，前进......”。我想通过规则平滑该列的分类值：

1. 对于每一行，检查其前 5 行和后 5 行（其邻居）
2. 通过其邻居的 MAJORITY VOTE 重新分配该行的值

我没有找到任何可以在 R 中使用的包。

Answer 1

您可以将包zoo中的rollapply与table一起使用：

mov <- c("forward", "backward", "stop")
s <- sample(mov, 1000, replace = TRUE)

zoo::rollapply(s,11, function(x) names(which.max(table(x))))