根据另一列的排序在一个因子内创建子组

Question

我试图在基于特定列的因子内创建子组。 这是一个名为“test”的示例数据集，类似于我正在使用的数据集。

structure(list(old.id = c("A", "A", "A", "A", "A", "A", "A", 
"B", "B", "B", "B", "B", "B", "B", "B", "B", "B", "C", "C", "C"
), id.number = c(1, 2, 3, 4, 1, 2, 3, 1, 2, 3, 4, 5, 6, 1, 2, 
3, 4, 1, 2, 3), X = c(0.859207813394842, 0.636238617960869, 0.507899267816508, 
0.400124367809121, 0.867246955862074, 0.620089503630128, 0.493032629079145, 
0.702937523522877, 0.897875765710176, 0.360667580073056, 0.931321208973492, 
0.298666640389948, 0.94444119643156, 0.223731238077921, 0.705733544607941, 
0.354808093410256, 0.196606367677969, 0.67764700709383, 0.510474776312792, 
0.214473998493235), Y = c(44, 41, 43, 61, 41, 51, 55, 34, 41, 
63, 15, 77, 57, 73, 60, 71, 73, 16, 50, 19), Z = c(322, 349, 
395, 300, 368, 357, 385, 306, 385, 377, 323, 335, 314, 372, 372, 
362, 311, 301, 332, 314), Factor1 = c("Y", "N", "N", "N", "Y", 
"N", "Y", "Y", "Y", "Y", "Y", "N", "N", "Y", "Y", "Y", "N", "Y", 
"N", "N"), Factor2 = c("L", "M", "H", "L", "H", "L", "L", "M", 
"H", "H", "H", "M", "L", "H", "H", "H", "L", "H", "L", "M")), row.names = c(NA, 
-20L), class = c("tbl_df", "tbl", "data.frame"))

我的两个主要目标：

1. 匿名“old.id”列
2. 使用由 old.id 列和“id.number”列定义的新“new.id”创建事件链

如果不是添加了“id.number”列的顺序，我可以通过使用轻松地匿名化 id

library(tidyverse)
new_test=test %>%  mutate(new_id=group_indices(.,old.id))

我无法确定如何对结果进行分组并使用“id.number”分配新的 id。 下面是我希望的结果。

structure(list(old.id = c("A", "A", "A", "A", "A", "A", "A", 
"B", "B", "B", "B", "B", "B", "B", "B", "B", "B", "C", "C", "C"
), id.number = c(1, 2, 3, 4, 1, 2, 3, 1, 2, 3, 4, 5, 6, 1, 2, 
3, 4, 1, 2, 3), new.id = c(1, 1, 1, 1, 2, 2, 2, 3, 3, 3, 3, 3, 
3, 4, 4, 4, 4, 5, 5, 5), X = c(0.859207813394842, 0.636238617960869, 
0.507899267816508, 0.400124367809121, 0.867246955862074, 0.620089503630128, 
0.493032629079145, 0.702937523522877, 0.897875765710176, 0.360667580073056, 
0.931321208973492, 0.298666640389948, 0.94444119643156, 0.223731238077921, 
0.705733544607941, 0.354808093410256, 0.196606367677969, 0.67764700709383, 
0.510474776312792, 0.214473998493235), Y = c(44, 41, 43, 61, 
41, 51, 55, 34, 41, 63, 15, 77, 57, 73, 60, 71, 73, 16, 50, 19
), Z = c(322, 349, 395, 300, 368, 357, 385, 306, 385, 377, 323, 
335, 314, 372, 372, 362, 311, 301, 332, 314), Factor1 = c("Y", 
"N", "N", "N", "Y", "N", "Y", "Y", "Y", "Y", "Y", "N", "N", "Y", 
"Y", "Y", "N", "Y", "N", "N"), Factor2 = c("L", "M", "H", "L", 
"H", "L", "L", "M", "H", "H", "H", "M", "L", "H", "H", "H", "L", 
"H", "L", "M")), row.names = c(NA, -20L), class = c("tbl_df", 
"tbl", "data.frame"))

因此，如果我们查看“old.id”=A 并且“id.number”字段循环回 1 时，它定义了一个新的事件“链”并被分配了一个“new.id”编号。我的实际数据集有 60 列大约 500,000 行，任何解决方案都需要扩展到数百万行。我更喜欢整洁的解决方案，这样我就可以将其添加到现有的整洁管道中，但我会很感激任何有效的方法。谢谢

Answer 1

alistaire 在上面的评论中为我的问题提供了一个非常好的解决方案。 这里是：

df$new.id <- cumsum(df$id.number == 1) or in dplyr, df <- df %>% mutate(new.id = cumsum(id.number == 1))