r - 连续统计条件R数据帧的出现次数

Question

我有一个看起来像这样的数据框

Sample_No Lab_ID
1234       2
1235       2
1236       2
2344       3
3425       4
2341       5
6756       5
...

我想计算每个 lab_id 出现的次数，但在数据帧的新列中它旁边的出现次数如下所示

Sample_No Lab_ID   Occurrence
1234       2           1
1235       2           2
1236       2           3
2344       3           1 
3425       4           1
2341       5           1 
6756       5           2
...

我可以使用以下方法获取唯一值的列表

我可以做类似的事情

table(df$LAB_ID)

但这会生成一个总结计数的表格

感谢任何帮助

Answer 1

这是一个无需使用 rle 加载十几个额外包的解决方案。

> x <- c(2,2,2, 3, 4, 5,5)
> 
> cs <- rle(x)
> 
> xy <- cs$lengths
> 
> out <- mapply(
+   FUN = function(x) seq(from = 1, to = x, by = 1),
+   xy
+ )
> 
> data.frame(
+   lab_id = x,
+   occurrence = unlist(out)
+ )
  lab_id occurrence
1      2          1
2      2          2
3      2          3
4      3          1
5      4          1
6      5          1
7      5          2