R - 按组计算直到匹配的行数

在R中，可以使用group_by和summarize函数来按组计算直到匹配的行数。

下面是一个示例代码：

library(dplyr)

# 创建一个示例数据框
df <- data.frame(
  group = c("A", "A", "A", "B", "B", "C", "C", "C"),
  value = c(1, 2, 3, 4, 5, 6, 7, 8)
)

# 按组计算直到匹配的行数
result <- df %>%
  group_by(group) %>%
  mutate(matching_rows = cumsum(value == 7)) %>%
  ungroup()

# 打印结果
print(result)

输出结果如下：

# A tibble: 8 x 3
  group value matching_rows
  <chr> <dbl>         <int>
1 A         1             0
2 A         2             0
3 A         3             0
4 B         4             0
5 B         5             0
6 C         6             0
7 C         7             1
8 C         8             1

在这个示例中，我们首先使用group_by函数按group列进行分组。接下来，我们使用mutate函数和cumsum函数计算每个组中匹配的行数。cumsum(value == 7)表示如果value列等于7，则返回1，否则返回0。最后，我们使用ungroup函数取消分组。

这样，我们就得到了一个新的数据框，其中包含了每个组中每行匹配的行数。