在 R 列表中添加第 5 个和第 95 个百分位数

【问题标题】：Adding 5th and 95th Percentile to List in R在 R 列表中添加第 5 个和第 95 个百分位数
【发布时间】：2023-02-24 20:41:59
【问题描述】：

有没有一种方法可以将第 5 个和第 95 个百分位数添加到下面的列表中？

mtcars %>% summarize(across(where(is.numeric), list(median = median), na.rm = TRUE))

我尝试了以下内容，但我想我遗漏了一些东西。

mtcars %>% summarize(across(where(is.numeric), list(mean = mean, q95=quantile(, .95), q5=quantile(, .05)), na.rm = TRUE))

任何帮助，将不胜感激！谢谢！

【问题讨论】：

标签： r dplyr

【解决方案1】：

您可能希望在您的列表中使用 ~ 和 across，如下所示：

library(dplyr)
mtcars %>%
  summarise(across(where(is.numeric), list(mean = ~mean(.), 
                                           q5 = ~quantile(., 0.05), 
                                           q95 = ~quantile(., 0.95))))
#>   mpg_mean mpg_q5 mpg_q95 cyl_mean cyl_q5 cyl_q95 disp_mean disp_q5 disp_q95
#> 1 20.09062 11.995    31.3   6.1875      4       8  230.7219   77.35      449
#>    hp_mean hp_q5 hp_q95 drat_mean drat_q5 drat_q95 wt_mean wt_q5  wt_q95
#> 1 146.6875 63.65 253.55  3.596563  2.8535   4.3145 3.21725 1.736 5.29275
#>   qsec_mean qsec_q5 qsec_q95 vs_mean vs_q5 vs_q95 am_mean am_q5 am_q95
#> 1  17.84875 15.0455  20.1045  0.4375     0      1 0.40625     0      1
#>   gear_mean gear_q5 gear_q95 carb_mean carb_q5 carb_q95
#> 1    3.6875       3        5    2.8125       1      4.9

^{创建于 2023-02-24 reprex v2.0.2}

【讨论】：