每种数据组合的特殊组编号

Question

我想为每对行分配不同的组号。对于某些对，将唯一的数字指定为组号。

修改

我们可以认为数据中存在的那些是成对的。如果这些对存在于行中，请为它们分配一个组编号，直到下一对。由于实际数据中可能存在其他数据行。

以下是示例数据

 names <- c(c("bad","good"),c("good","bad"),c("bad","J.James"),c("Good","J.James"),c("J.James","Good"),c('Veni',"vidi","Vici"))

  df <- data.frame(names)

      names
1      bad
2     good
3     good
4      bad
5      bad
6  J.James
7     Good
8  J.James
9  J.James
10    Good
11    Veni
12    vidi
13    Vici

因为我集中了每个对，例如c（“坏”，“好”）想要对它们进行分组，对于c('Veni',"vidi","Vici")对分配唯一的数字666。

所以预期的产出

     names Group
1      bad     1
2     good     1
3     good     2
4      bad     2
5      bad     3
6  J.James     3
7     Good     4
8  J.James     4
9  J.James     5
10    Good     5
11    Veni     666
12    vidi     666
13    Vici     666

我很感激你的帮助。

我还根据评论者的建议发布了more complicated case as a new question。

Answer 1

您可以尝试以下内容：

receive method