如何通过group_by中的group-number对数据表进行编号/标记？

Question

我有一个tbl_df我想要group_by(u, v)观察的每个不同的整数组合(u, v)。编辑：通过添加group_indices()回dplyr 0.4.0解决了这个问题a）然后我想为每个不同的组分配一些任意的不同数字标签= 1,2,3 ......例如组合（u，v）==（2,3）可以得到标签1，（1,3）可以得到2，依此类推。如何使用一个mutate()，没有三步总结和自我加入？dplyr有一个整洁的功能n()，但是，让元素的数目之内它的组，而不是整体的组的数目。在data.table这将简单地被称为.GRP。b）实际上我真正想要分配字符串/字符标签（'A'，'B'，...）。但是按整数编号组是很好的，因为我可以使用integer_to_label(i)如下。除非有一个聪明的方法来合并这两个？但不要冒这个角色。set.seed(1234)# Helper fn for mapping integer 1..26 to character labelinteger_to_label <- function(i) { substr("ABCDEFGHIJKLMNOPQRSTUVWXYZ",i,i) }df <- tbl_df(data.frame(u=sample.int(3,10,replace=T), v=sample.int(4,10,replace=T)))# Want to label/number each distinct group of unique (u,v) combinationsdf %>% group_by(u,v) %>% mutate(label = n()) # WRONG: n() is number of element within its group, not overall number of group   u v1  2 32  1 33  1 24  2 35  1 26  3 37  1 38  1 29  3 110 3 4KLUDGE 1: could do df %>% group_by(u,v) %>% summarize(label = n()) , then self-join

Answer 1

更新的答案

get_group_number = function(){

    i = 0

    function(){

        i <<- i+1

        i

    }

}

group_number = get_group_number()

df %>% group_by(u,v) %>% mutate(label = group_number())

您还可以考虑以下稍微不可读的版本

group_number = (function(){i = 0; function() i <<- i+1 })()

df %>% group_by(u,v) %>% mutate(label = group_number())

使用iterators包

library(iterators)

counter = icount()

df %>% group_by(u,v) %>% mutate(label = nextElem(counter))

Answer 2

dplyr有一个group_indices()你可以使用的功能：

df %>% 

    mutate(label = group_indices(., u, v)) %>% 

    group_by(label) ...

Answer 3

使用的另一种方法data.table是

require(data.table)

setDT(df)[,label:=.GRP, by = c("u", "v")]

这导致：

    u v label

 1: 2 1     1

 2: 1 3     2

 3: 2 1     1

 4: 3 4     3

 5: 3 1     4

 6: 1 1     5

 7: 3 2     6

 8: 2 3     7

 9: 3 2     6

10: 3 4     3