Question

我想以数据框格式返回2009年到2017年的结果，每年分别作为列名和行名分别为0.25、0.5和0.75，但是我的代码仅返回2009年的结果。

for (y in 2009:2017){
  i <- filter(proj, Year.of.Inflow==y)
  y <- quantile(i$Gross.Salary, probs = c(0.25,0.5,0.75))
  return(as.data.frame(y))
}

非常感谢您对我缺少的代码的建议，谢谢。

      y
25% 2891.625
50% 3391.860
75% 4402.775

Answer 1

仅使用base个R函数，您可以使用by函数按组执行函数，然后将cbind的结果列表按如下方式放入data.frame中：

do.call(cbind, 
    by(proj$Gross.Salary, proj$Year.of.Inflow, 
        function(x) quantile(x, c(0.25,0.5,0.75)))
)

样本数据：

set.seed(0L)
yrs <- rep(2009:2017, each=10)
proj <- data.frame(Year.of.Inflow=yrs, Gross.Salary=runif(length(yrs))*1e6)

输出：

        2009     2010     2011     2012     2013     2014     2015     2016
25% 422306.3 249489.7 225912.1 375781.8 490352.4 262665.9 303301.2 357510.0
50% 644955.9 440901.5 384251.0 546553.6 600048.3 457858.4 432948.0 626836.0
75% 897966.6 709969.6 746002.4 709899.9 770278.0 626162.4 607789.2 858114.7
        2017
25% 265454.4
50% 417326.9
75% 712166.3

For循环不会以数据帧格式重复结果

1 个答案: