r - 重新缩放矢量 R

Question

假设我有一个整数向量，例如：

> x
[1]  1  1  1  4  4 13 13 14

我正在 R 中寻找一种有效的方法来将向量重新缩放为整数 1 到唯一元素数的最大值。因此得到的向量将是：

1 1 1 2 2 3 3 4

似乎是一个简单的问题，但我很难找到一种有效的方法来做到这一点。在实践中，这个向量很大（大约 500）。

Answer 1

尝试match(x, sort(unique(x)))：

x <- sample(1:50, 1e6, replace = TRUE)
benchmark(as.integer(factor(x)), match(x, sort(unique(x))),
          replications = 20, columns = c("test", "elapsed", "relative"))
#                        test elapsed relative
# 1     as.integer(factor(x))   18.44    10.36
# 2 match(x, sort(unique(x)))    1.78     1.00

identical(as.integer(factor(x)), match(x, sort(unique(x))))
# [1] TRUE

Answer 2

假设这v是您的向量，请尝试以下命令

rank( v )

有关更多信息，请参阅?rank。

好吧，这确实给出了另一个结果，但作为排名是正确的，这是我认为你想要实现的。要获得您喜欢的结果，请执行

as.integer( factor( v ) )