ベクトルの繰り返し要素を1つにして返す

やり方

> v <- c(1, 1, 5, 5, 5, 5, 2, 2, 6, 6, 1, 3, 3)
> v[v != dplyr::lag(v, default = !v[1])]
[1] 1 5 2 6 1 3

なぜできるか

lagが一つずらしたものを返すので、それを使う

> dplyr::lag(v, default = !v[1])
 [1] 0 1 1 5 5 5 5 2 2 6 6 1 3
> v
 [1] 1 1 5 5 5 5 2 2 6 6 1 3 3

参考

• https://stackoverflow.com/questions/10769640/how-to-remove-repeated-elements-in-a-vector-similar-to-set-in-python