アルファベット順のカテゴリデータのスムーズR

Question

マイデータセットの列の1つが「Movement_Stats」で、「forward」、「backward」および「Stop」が含まれています。各行は画像フレームを表す。したがって、この列は、「前方、前方、前方、後方、前方、前方...」のように見えます。

により、この列の値を再割り当て以前の5行と次の5行（その隣接）を確認し、各列について

1. ：私はルールによってこの列のカテゴリ値を平滑化しますその隣

の多数決私は、私はあなたが一緒にtableでパッケージzooからrollapplyを使用することができますR.

Answer 1

で使用できるすべてのパッケージを見つけられませんでした：

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

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