R语言的dcast语句怎么才能求加权平均

原计划用melt和dcast来实现，但是dcast只有mean，没有加权平均的功能？  怎么办呢？

附件是各个银行的单独数据，例如我想求五大行的合并数据，在文件里是top5==1的。
五大行的 存款贷款比率( loan_depo_ratio_n) 求平均数时用 存款总额( total_deposit_n) 加权。
五大行的 不良贷款比率( npl_ratio_n) 求平均数时用 贷款总额( total_loan_n) 加权。


请问这个功能怎么实现？


da02.rar (62.24 KB) 本附件包括：

• da02.csv

2018-1-15 20:23:26 上传

我用tidyverse包+weighted.mean()实现，不知是不是你想要的：

1. library(tidyverse)
   
2. library(lubridate)
   
3. 
   
4. a <- read.csv("da02.csv", header = TRUE, stringsAsFactors = FALSE) %>%
   
5.   tbl_df() %>%
   
6.   mutate_at(vars(datetime, ipodate), .funs = as_date)
   
7. 
   
8. a %>%
   
9.   filter(top5 == 1) %>%
   
10.   group_by(datetime) %>%
    
11.   summarise(W_loan_depo_ratio_n = weighted.mean(loan_depo_ratio_n, total_deposit_n, na.rm = TRUE),
    
12.             W_npl_ratio_n = weighted.mean(npl_ratio_n, total_deposit_n, na.rm = TRUE))

复制代码

结果如下：

注：我第二个变量的权重选错了，请你自己更正一下。

cheetahfly 发表于 2018-1-15 22:12
我用tidyverse包+weighted.mean()实现，不知是不是你想要的：
结果如下：

多谢您。
变量是哪个都无所谓，道理都一样，我试验一下，看看是否可行。