如何唯一索引列？

Question

试图找到类似的帖子，但不能。

我在数据表中的列，看起来像这样 - 来索引>

x,x,x,x,y,y,y,c,c,c 

我想在一个单独的列，使得 - >

1,1,1,1,2,2,2,3,3,3 

怎么办呢？

Answer 1

dt$index <- cumsum(!duplicated(dt$a)) 
dt 
a index 
# 1 x  1 
# 2 x  1 
# 3 x  1 
# 4 x  1 
# 5 y  2 
# 6 y  2 
# 7 y  2 
# 8 c  3 
# 9 c  3 
# 10 c  3 

Answer 2

与data.table A液：

library(data.table) 
dt <- data.table(col = c("x", "x", "x", "x", "y", "y", "y", "c", "c", "c")) 

dt[ , idx := .GRP, by = col] 
#  col idx 
# 1: x 1 
# 2: x 1 
# 3: x 1 
# 4: x 1 
# 5: y 2 
# 6: y 2 
# 7: y 2 
# 8: c 3 
# 9: c 3 
# 10: c 3 

---

在基础R A液：

dat <- data.frame(col = c("x", "x", "x", "x", "y", "y", "y", "c", "c", "c")) 

dat <- transform(dat, idx = match(col, unique(col))) 
# col idx 
# 1 x 1 
# 2 x 1 
# 3 x 1 
# 4 x 1 
# 5 y 2 
# 6 y 2 
# 7 y 2 
# 8 c 3 
# 9 c 3 
# 10 c 3 

Answer 3

我去与此，这具有的优点与数据帧和dat一起工作一张桌子，（也许蹒跚，idk）。索引号是从col代码的第一次出现获得的，并且输出索引号不依赖于col代码是相邻行（所以如果col去x,x,x,x,y,y,y,x,x,x所有x都得到索引2）。

> dt <- data.table(col = c("x", "x", "x", "x", "y", "y", "y", "c", "c", "c")) 
> dt$index = as.numeric(factor(dt$col,levels=unique(dt$col))) 
> dt 
    col index 
1: x  1 
2: x  1 
3: x  1 
4: x  1 
5: y  2 
6: y  2 
7: y  2 
8: c  3 
9: c  3 
10: c  3