按Id和R中的贷款用途确定比例

您能按身份证和贷款用途向我提供以下样本数据的比例吗

数据：

期望输出：

Id  Loan              Proportion
94  Expansion       66.67%
94  Working Capital     33.33%
95  Working Capital     83.33%
95  Inventory       16.67%

谢谢，

---

S

使用标准的旧

表格和
道具表格
功能：

tmp <- table(dat)
data.frame(prop.table(tmp ,1))[tmp != 0,]
#  Id            Loan      Freq
#1 94       Expansion 0.6666667
#5 95       Inventory 0.3333333
#7 94 Working Capital 0.3333333
#8 95 Working Capital 0.6666667
#9 99 Working Capital 1.0000000

tmp我想得到每个贷款类型和ID（A列和B列）的比例…这意味着每个ID将有100%的拆分。您的代码考虑了所有贷款和所有ID。可能重复@Sobana请在您的问题中添加附加信息（不在评论中），例如，编辑您的问题对于
ID==95
，您所需的输出是否正确？（您接受的答案没有给出所需的输出）。@RonakShah在解决方案中被限制为
dplyr
tmp <- table(dat)
data.frame(prop.table(tmp ,1))[tmp != 0,]
#  Id            Loan      Freq
#1 94       Expansion 0.6666667
#5 95       Inventory 0.3333333
#7 94 Working Capital 0.3333333
#8 95 Working Capital 0.6666667
#9 99 Working Capital 1.0000000