我们可以使用游程编码（rle）来实现。
以下假设为data.frame：

r <- rle(quux$reference <= 2)
r$values <- ifelse(r$values, 0, cumsum(r$values))
quux$result2 <- inverse.rle(r)
quux
#    row reference result result2
# 1    1         2      0       0
# 2    2         1      0       0
# 3    3         4      1       1
# 4    4         3      1       1
# 5    5         1      0       0
# 6    6         6      2       2
# 7    7         8      2       2
# 8    8         4      2       2
# 9    9         1      0       0
# 10  10         3      3       3
# 11  11         6      3       3

数据类型

quux <- structure(list(row = 1:11, reference = c(2, 1, 4, 3, 1, 6, 8, 4, 1, 3, 6), result = c(0, 0, 1, 1, 0, 2, 2, 2, 0, 3, 3)), row.names = c(NA, -11L), class = "data.frame")

正如@Sotos的评论中所指出的，将考虑为您的对象使用替代名称。
由于不清楚是data.frame还是matrix，假设我们有一个基于您的数据的data.frame df：

df <- as.data.frame(table)

并且具有阈值2：

threshold = 2

您可以通过@flodel修改this solution：

df$new_result = ifelse(
  x <- reference > threshold, 
  cumsum(c(x[1], diff(x) == 1)), 
  0)
df

在这种情况下，diff(x)将包括一个向量，其中值1指示result应增加cumsum的位置（在示例数据中，这发生在第3、6和10行）。这些是从FALSE到TRUE的转换（0到1），其中reference从threshold之下到threshold之上。注意，由于diff值的长度将短1个元素，因此添加/组合x[1]。
使用ifelse时，这些新的增量值仅适用于reference超过threshold的值，否则设置为0。

• • 产出**

row reference result new_result
1    1         2      0          0
2    2         1      0          0
3    3         4      1          1
4    4         3      1          1
5    5         1      0          0
6    6         6      2          2
7    7         8      2          2
8    8         4      2          2
9    9         1      0          0
10  10         3      3          3
11  11         6      3          3