Question

我正在使用聚合函数来汇总一些数据。数据是贷款数据，我有ContractNum和LoanAmount。我想通过StartDate汇总数据，计算贷款数量和平均贷款金额以下是我使用的数据和函数示例：

ContractNum <- c("RHL-1","RHL-2","RHL-3","RHL-3")
StartDate <- c("2016-11-01","2016-11-01","2016-12-01","2016-12-01")
LoanPurpose <- c("Personal","Personal","HomeLoan","Investment")
LoanAmount <- c(200,500,600,150)

dat <- data.frame(ContractNum,StartDate,LoanPurpose,LoanAmount)



 aggr.data <- aggregate(
  cbind(LoanAmount,ContractNum) ~ StartDate + LoanPurpose  
  ,data = dat
  ,FUN = function(x)c(count = mean(x),length(x))
)

当我查看聚合函数的结果时，它看起来没问题：

> aggr.data
   StartDate LoanPurpose LoanAmount.count LoanAmount.V2 ContractNum.count ContractNum.V2
1 2016-12-01    HomeLoan              600             1               3.0            1.0
2 2016-12-01  Investment              150             1               3.0            1.0
3 2016-11-01    Personal              350             2               1.5            2.0

但是当我看到它的结构时，它似乎创建了一个子列表：

> str(aggr.data)
'data.frame':   3 obs. of  4 variables:
 $ StartDate  : Factor w/ 2 levels "2016-11-01","2016-12-01": 2 2 1
 $ LoanPurpose: Factor w/ 3 levels "HomeLoan","Investment",..: 1 2 3
 $ LoanAmount : num [1:3, 1:2] 600 150 350 1 1 2
  ..- attr(*, "dimnames")=List of 2
  .. ..$ : NULL
  .. ..$ : chr  "count" ""
 $ ContractNum: num [1:3, 1:2] 3 3 1.5 1 1 2
  ..- attr(*, "dimnames")=List of 2
  .. ..$ : NULL
  .. ..$ : chr  "count" ""

如何摆脱这个子列表，以便我可以按照通常访问DF的方式访问每个列？我明白在代码中我已经要求在ContractNum上给出一个没有意义的意思，但我可以摆脱那一列。

谢谢

Answer 1

只需在do.call(data.frame, ...)上执行aggr.data即可取消矩阵。

aggr.data <- do.call(data.frame, aggr.data);
str(aggr.data);
#'data.frame':  3 obs. of  6 variables:
# $ StartDate        : Factor w/ 2 levels "2016-11-01","2016-12-01": 2 2 1
# $ LoanPurpose      : Factor w/ 3 levels "HomeLoan","Investment",..: 1 2 3
# $ LoanAmount.count : num  600 150 350
# $ LoanAmount.V2    : num  1 1 2
# $ ContractNum.count: num  3 3 1.5
# $ ContractNum.V2   : num  1 1 2

R - 聚合函数创建子列表

1 个答案: