以1 [duplicate]开头的标识符序列

Question

此问题已经在这里有了答案：

• Add ID column by group [duplicate]4个答案
• How to create a consecutive index based on a grouping variable in a dataframe6个答案

我的数据集中有一个ID，用于指示观察值所属的用户。我想将此编码为从1开始的序列。

示例数据

da1 <- data.frame(player = c(120,120,120,47,47,18,18,18), wins = c(0,2,1,0,0,2,0,1))

da1
  player wins
1    120    0
2    120    2
3    120    1
4     47    0
5     47    0
6     18    2
7     18    0
8     18    1

我希望它看起来像这样：

da2 <- data.frame(player = c(1,1,1,2,2,3,3,3), wins = c(0,2,1,0,0,2,0,1))

da2
  player wins
1      1    0
2      1    2
3      1    1
4      2    0
5      2    0
6      3    2
7      3    0
8      3    1

我已经尝试了以下代码，但是它为每个用户创建了一个序列。

library(tidyverse)
da1 %>%
  group_by(id) %>%
  mutate(start = 1:n())

Answer 1

da2 <- transform(da1, id=match(player, unique(player)))

Answer 2

我相信tidyverse解决方案将类似于：

da1$player <- 
  da1 %>% 
  group_by(player) %>% 
  group_indices()

如果您愿意考虑data.table并且已经订购了数据，则可以：

da1$player <- data.table::rleid(da1$player)
> da1
  player wins
1      1    0
2      1    2
3      1    1
4      2    0
5      2    0
6      3    2
7      3    0
8      3    1

或全程data.table解决方案（对订购不敏感）：

setDT(da1)[, player := .GRP, by = player]
da1

另一个base R替代项：

as.integer(factor(-da1$player))