r - 如何用数字索引替换字符串

Question

您将如何用数值替换字符串？

例如，假设我有一个像这样的向量，

n <- c(rep("Sam", 3), "Harry", rep("Sparky", 2), rep("Ted", 4), "Red")

>n
 [1] "Sam"    "Sam"    "Sam"    "Harry"  "Sparky" "Sparky" "Ted"    "Ted"    "Ted"   
[10] "Ted"    "Red"

我想得到这样的输出，

 [1] 1 1 1 2 3 3 4 4 4 4 5

在哪里

Sam由 1 索引

Harry由 2 索引

Sparky来自 3

Ted来自 4

Red来自 5 .

Answer 1

这里使用 factor 的解决方案保留所需顺序的方法:

n <- factor(n, levels = unique(n))
> as.numeric(n)
 [1] 1 1 1 2 3 3 4 4 4 4 5