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

Question

我有一个名为"data"的数据框架，如下所示:

<表类> id 数量 tbody><<tr>01502303号7044059

试试这个:

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

^{由reprex包(v2.0.1)创建于2022-07-06}