我有一张像这样的桌子

mtcars

我要数一数有多少型号是30%的.我找到了那个百分位数.但我不知道怎么数.

library(dplyr)
library(purrr)
mtcars%>%总结(跨越(其中(是数值的),~quantile(.x,0.30)))  
mpg cyl   disp    hp drat    wt  qsec vs am gear carb
1 15.98   4 142.06 106.2 3.15 2.773 17.02  0  0    3    2

mtcars%>%总结(跨越(其中(是数值的),~quantile(.x,0.30)))

推荐答案

我们将其转换为一个逻辑向量(.x < quantile(.x, 0.30)),得到sum-as TRUE-gt;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

R相关问答推荐

如何在kableextra调用cell_spec()中忽略NA?

使用case_match()和char数组重新编码值

R中插入符号训练函数的中心因子和尺度因子预测

将多列合并为单独的名称—值对

如何同时从多个列表中获取名字?

如何写商,水平线,在一个单元格的表在R

在R gggplot2中是否有一种方法将绘图轴转换成连续的 colored颜色 尺度?

使用Scale_*_MANUAL时在图例中保留未使用的系数级别

基于Key->Value数据帧的基因子集相关性提取

如何在使用箭头R包(箭头::OPEN_DATASSET)和dplyr谓词时编写具有整齐计算的函数?

按列中显示的配对组估算NA值

如何将一个方阵分解成没有循环的立方体

手动指定从相同数据创建的叠加图的 colored颜色

是否可以将线性模型的p值添加到tbl_summary中

在r中整理图例和堆叠图的问题

R中的Desolve:返回的导数数错误

R,将组ID分配给另一个观测ID变量中的值的组合

使用nls()函数的非线性模型的半正态图

Gggvenn为Venn增加了不存在的价值

判断R中多个数据帧中的公共ID