在R中平滑一系列分类数据

Question

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

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

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

Answer 1

您可以使用rollapply包中的zoo和table：

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

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