在R中按组向数据帧添加索引（或计数器）[重复]

Question

我有一个喜欢的df

ProjectID Dist
  1        x
  1        y
  2        z
  2        x
  2        h
  3        k
  ....     ....

我想添加第三列，以便我们为每个 ProjectID 设置一个递增计数器：

ProjectID Dist counter
  1        x     1
  1        y     2
  2        z     1
  2        x     2
  2        h     3
  1        k     3
  ....     ....

我查看了seq rank 和其他一些内容，特别想看看我是否可以使用ddply 来提供帮助：

df$counter <- ddply(df,.(projectID), function(x).....? )

我想我可以调整这个答案How to create a counter/numeration by group?，但更喜欢使用 ddply 之类的东西（我找不到 cumsum 的等价物，但我认为这里的原理是一样的：Create ascending series of integers by group in Pandas）。这让我可以在列表中索引出现的事件（例如，在此上合并）。

Answer 1

dplyr 的解决方案非常简单：

library(dplyr)

df %>% group_by(ProjectID) %>% mutate(counter = row_number(ProjectID))


#  ProjectID Dist counter
#1         1    x       1
#2         1    y       2
#3         2    z       1
#4         2    x       2
#5         2    h       3
#6         1    k       3