删除本地重复值

Question

如果你有一个像这样的数据框:

v <- c(1, 1, 5, 5, 2, 2, 6, 6, 1, 2, 2, 2, 2, 2, 2, 3)
w <- data.frame(v)

如何删除 w 中的重复值并用 NA 替换它们，只针对在一个值之后立即重复的值，这样你的新数据框看起来像这样？

v <- c(1, NA, 5, NA, 2, NA, 6, NA, 1, 2, NA, NA, NA, NA, NA, 3)
w <- data.frame(v)

请注意 2连续出现两次并在每次出现时保留并且立即重复的值都被删除？

我已经搜索过 SO 并且我看到使用唯一和重复函数删除每个重复值的响应，但这不是我要搜索的内容。我希望 R 中有一个包可以在不使用函数的情况下做到这一点。

Answer 1

关键是使用 diff() 检查差异并填写 NA每当差异为零时:

> result <- v
> result[c(FALSE,diff(v)==0)] <- NA
> result
 [1]  1 NA  5 NA  2 NA  6 NA  1  2 NA NA NA NA NA  3
>