r - 使向量的所有元素都不同

Question

我有一个向量(特别是有 770 个元素)，其中一些是重复的。我希望他们都不同。我开发了一个代码(一个简单的循环)来在两个位置持有相同数字时求和 0.0000001 以使值略有不同。但是，代码不起作用，我不知道如何更正它。当超过 2 个连续位置保持相同值时失败。

我确信这将是一个相当简单的解决方案，但我似乎找不到它。R中的代码。

for (i in 1:769) {
  if (grid.x[i] == grid.x[i+1]) {
    grid.x[i+1] <- grid.x[i+1] + 0.0000001
  }
}

Answer 1

试试这个:

vec <- c(1,2,3,4,3,3,4)
ave(vec, vec, FUN=function(z) z+(seq_along(z)-1)*1e-4)
# [1] 1.0000 2.0000 3.0000 4.0000 3.0001 3.0002 4.0001

请注意 3 有增量添加。我使用了 1e-4，请随意使用更小的东西。