R 条件加权平均

我想建立一个条件加权平均公式

贷款金额 贷款期限 信用评分 71100 75 636 29190 75 803 16865.89 72 569 22930.86 75 556 11663.19 72 531

---

使用

dplyr

可以执行以下操作：

库（dplyr）
df1%>%
过滤器（信用评分<600和信用评分>500）%>%
汇总（加权平均=总额（贷款金额*贷款期限）/总额（贷款金额））
#>加权平均
#> 1         73.33682

数据：

带有（子集（df1，信用评分>500，信用评分<600），总和（贷款金额*贷款期限）/总和（贷款金额））

read.table(text="Loan_Amount    Loan_Term   Credit_Score
71100   75  636
29190   75  803
16865.89    72  569
22930.86    75  556
11663.19    72  531", header=T) -> df1