r-创建一个带有可变阈值的特殊计数表

Question

我有一个名为“数据”的数据框，如下所示：

ID	数量
01	5
02	3
03	7
04	4
05	9

，我想设置阈值并计算多少个ID等于或低于该阈值，这意味着dataframe“结果”结果“结果”如：

阈值	计数
1	0 2
0	3
1	4
2	5
3	3
7	4
8	4
9	5
10	5
我	发现这样做的

唯一方法是使用“ for”：

for（i在1:10） {结果$ count [i]＆lt; - nrow（数据[数据$ dentity＆lt; = i，]}

此说明确实有效。但是，有了我的真实数据，有500个阈值，我必须重复相当多 “ For”循环很长。

相同的过程12次...因此， nrow（数据[数据$ dentity＆lt; =结果$ threshold，] ，

但它不起作用（“较长的对象长度不是较短对象长度的倍数”）。 你有一些想法吗？

Answer 1

尝试以下尝试：

library(tidyverse)

df <- tribble(
  ~id, ~quantity,
  "01", 5,
  "02", 3,
  "03", 7,
  "04", 4,
  "05", 9
)

result <- map_dfr(1:10, function(x){
  tibble(
    threshold = x,
    count = sum(df$quantity <= x)
    )
})

result
#> # A tibble: 10 × 2
#>    threshold count
#>        <int> <int>
#>  1         1     0
#>  2         2     0
#>  3         3     1
#>  4         4     2
#>  5         5     3
#>  6         6     3
#>  7         7     4
#>  8         8     4
#>  9         9     5
#> 10        10     5

^{在2022-07-06创建的 reprex package （v2.0.1）}