对data.frame中的行进行分组并查找分位数[重复]

Question

这个问题在这里已有答案：

• Aggregate / summarize multiple variables per group (e.g. sum, mean) 6个答案

我有以下数据：

set.seed(789)
df_1 = data.frame(a = 22, b = 24, c = rnorm(10))
df_2 = data.frame(a = 44, b = 24, c = rnorm(10))
df_3 = data.frame(a = 33, b = 99, c = rnorm(10))

df_all = rbind(df_1, df_2, df_3)

我需要通过列df_all和a对b进行分组，然后根据列c找到第50个分位数。

对于每个df，这可以单独完成，如下所示：

df_1_q = quantile(df_1$c, probs = 0.50)
df_2_q = quantile(df_2$c, probs = 0.50)
df_3_q = quantile(df_3$c, probs = 0.50)

然而，我真正的df_all比这更大。

更一般地说，如何按行对data.frame进行分组并应用给定的函数？

谢谢

Answer 1

你可以使用dplyr

library(dplyr)
df_all %>%
  group_by(a, b) %>%
  summarise(quantile = quantile(c, probs = 0.5))
# A tibble: 3 x 3
# Groups:   a [?]
      a     b quantile
  <dbl> <dbl>    <dbl>
1    22    24   -0.268
2    33    99   -0.234
3    44    24   -0.445

或者使用data.table作为：

library(data.table)
dt <- data.table(df_all)
dt[,list(quantile=quantile(c, probs = 0.5)),by=c("a", "b")]
    a  b       quantile
1: 22 24 -0.2679104
2: 44 24 -0.4450979
3: 33 99 -0.2336712