在数据框中创建新列：组中的索引（组之间不唯一）

xvrtzn 发表于 Dev

xvrtzn

我有一个包含两列的数据框：第一列包含每个个人所属的组，第二列包含个人的ID。见下文：

df <- data.frame( group=c('G1','G1','G1','G1','G2','G2','G2','G2'), 
      indiv=c('indiv1','indiv1','indiv2','indiv2','indiv3',
              'indiv3','indiv4','indiv4'))

   group   indiv
1     G1  indiv1
2     G1  indiv1
3     G1  indiv2
4     G1  indiv2
5     G2  indiv3
6     G2  indiv3
7     G2  indiv4
8     G2  indiv4

我想在数据框中创建一个新列（保留长格式），并使用组中每个人的索引，即：

   group   indiv  Ineed
1     G1  indiv1      1
2     G1  indiv1      1
3     G1  indiv2      2
4     G1  indiv2      2
5     G2  indiv3      1
6     G2  indiv3      1
7     G2  indiv4      2
8     G2  indiv4      2

我尝试使用data.table .N或.GRP方法，但没有成功（顺便说一下，对data.table进行了很好的工作！）。

任何帮助，不胜感激！

大卫·阿伦堡

您可以在rleid此处使用新功能（从开发版本v> = 1.9.5起）

setDT(df)[, Ineed := rleid(indiv), group][]
#    group  indiv Ineed
# 1:    G1 indiv1     1
# 2:    G1 indiv1     1
# 3:    G1 indiv2     2
# 4:    G1 indiv2     2
# 5:    G2 indiv3     1
# 6:    G2 indiv3     1
# 7:    G2 indiv4     2
# 8:    G2 indiv4     2

或者，您可以转换为因子（以创建唯一的组），然后将它们转换回数字（如果使用的是CRAN稳定版本v <= 1.9.4）

setDT(df)[, Ineed := as.numeric(factor(indiv)), group][]
#    group  indiv Ineed
# 1:    G1 indiv1     1
# 2:    G1 indiv1     1
# 3:    G1 indiv2     2
# 4:    G1 indiv2     2
# 5:    G2 indiv3     1
# 6:    G2 indiv3     1
# 7:    G2 indiv4     2
# 8:    G2 indiv4     2

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。