我是R的新手，我刚做了一个双循环，需要很长时间才能运行。有人可以帮我改变这段代码，让它运行得更快吗？
我有一个包含两列的数据集：一个包含付款金额的列（金额）和一个包含金额支付日期的列（天数）。可能会在同一天支付更多金额。使用代码，我想计算每天支付的所有金额的总和，例如： 第1天：100美元 第2天：150美元 等。
我制作了以下代码。如前所述，它可以工作，但需要很长时间才能运行。
sum_day = rep(0,203)
for(i in 1:7555){
for (k in 0:203){
if(data$days[i]==k){
sum_day[k+1] = sum_day[k+1] + data$bedrag[i]
}}}
有人可以帮帮我吗？