您可以使用 do 函数可解决此类问题。我生成了一些数据供您测试。

You can use the do function for problems like this. I generated some data for you to test this out.

library(dplyr)
Claims6 <- data.frame(year = factor(rep(c(2015, 2016), each = 10)),
                  Expense = runif(20))

Claims6 %>% group_by(year) %>% 
  do(data.frame(t(quantile(.$Expense, probs = c(0.10, 0.30, 0.50, 0.80)))))


Source: local data frame [2 x 5]
Groups: year [2]

    year       X10.      X30.      X50.      X80.
  (fctr)      (dbl)     (dbl)     (dbl)     (dbl)
1   2015 0.06998258 0.2855598 0.5469119 0.9499181
2   2016 0.22983539 0.3691736 0.4754915 0.7058695