计算低于 30% 百分位数的记录

Question

我有一张桌子，就像

mtcars

我需要计算30％百分位数的几个型号一样。我发现那个宾至如归。但是我找不到如何计算它们。

library(dplyr)
library(purrr)
mtcars %>% summarise(across(where(is.numeric), ~ quantile(.x, 0.30 ) ))  

  mpg cyl cyl disp hp drat wt qsec vs am齿轮碳
1 15.98 4 142.06 106.2 3.15 2.773 17.02 0 0 0 3 2
 

mtcars％＆gt;％总结（遍历（is.numeric），〜刻克（.x，0.30）））））））

Answer 1

我们转换为逻辑向量 (.x < quantile(.x, 0.30)) 并使用 sum 获取计数 - as TRUE - > 1 和 FALSE -> 0-

library(dplyr)
mtcars %>% 
    summarise(across(where(is.numeric), ~ sum(.x < quantile(.x, 0.30 ) )))

输出

   mpg cyl disp hp drat wt qsec vs am gear carb
1  10   0   10 10    9 10    9  0  0    0    7

Answer 2

在基本中，您可以

num <- sapply(mtcars, is.numeric)
sapply(mtcars[num], \(x) sum(x < quantile(x, .3)))
# mpg  cyl disp   hp drat   wt qsec   vs   am gear carb 
#  10    0   10   10    9   10    9    0    0    0    7 

或

colSums(mtcars[num] < lapply(mtcars[num], quantile, .3))
# mpg  cyl disp   hp drat   wt qsec   vs   am gear carb 
#  10    0   10   10    9   10    9    0    0    0    7 

或（使用matrixstats :: colquantiles）

colSums(mtcars[num] < as.list(matrixStats::colQuantiles(as.matrix(mtcars[num]), probs=.3)))
# mpg  cyl disp   hp drat   wt qsec   vs   am gear carb 
#  10    0   10   10    9   10    9    0    0    0    7