Rの列の値を順次減らす

Question

現在、列の値を特定の合計量だけ減らしてその量がゼロになるまで減らそうとしています。たとえば、このコードで作成されたデータフレームに：

df = data.frame(matrix(0,nrow=10,ncol=2)) 
colnames(df) <- c("AccountNumber", "BuyAmount") 
overbuy <- 500000 
df$AccountNumber <- seq(1:10) 
df$BuyAmount <- c(35000, 220000, 240000, 0, 195000, 55000, 0, 280000, 65000, 105000) 

>df 
    AccountNumber BuyAmount 
1    1  35000 
2    2 220000 
3    3 240000 
4    4   0 
5    5 195000 
6    6  50000 
7    7   0 
8    8 280000 
9    9  65000 
10   10 105000 

私は、列に沿って走ると5000それぞれによってoverbuyの値を小さく、一度に5000によってBuyAmount列内の非ゼロ値を減らすためにしようとしています時間。ループを通る最初の実行後、DFはそうのようになります。overbuy 0に達するまで

>df 
    AccountNumber BuyAmount 
1    1  30000 
2    2 215000 
3    3 235000 
4    4   0 
5    5 190000 
6    6  45000 
7    7   0 
8    8 275000 
9    9  60000 
10   10 100000 

そしてoverbuyの値は460000.に40000によって減少させるべきである私は、これらの値の上に実行し続けるために、このループをしたいと思います。

while(overbuy > 0){ 
    for(1 in 1:10){ 
    ifelse(df$BuyAmount[i] != 0, df$BuyAmount[i] <- df$BuyAmount[i] - 5000, "") 
    overbuy <- overbuy - 5000 
    } 
} 

任意の助けをいただければ幸いです。理論的には、DFは

>df 
    AccountNumber BuyAmount 
1    1   0 
2    2 150000 
3    3 170000 
4    4   0 
5    5 130000 
6    6   0 
7    7   0 
8    8 210000 
9    9   0 
10   10  35000 

が一度overbuy 0.私の現在の試行がある達すると終わるだろう！

Answer 1

私はこれがうまくいくと思いますが、それはエレガントではなく、あなたの目標を完全に理解していないかもしれません。そうでない場合は、私に知らせてください、私はこれを修正します。

編集：あなただけの1行を必要なよう

while(overbuy > 0){ 
    for(i in 1:10){ 

     if(df$BuyAmount[i]!=0){ 
      overbuy <- overbuy - 5000 
     } 
     df$BuyAmount[i] <- pmax(0, df$BuyAmount[i] - 5000) 

     print(overbuy) 
     print(df) 
     if(overbuy == 0) break 
    } 
} 

Answer 2

@mktは、あなたが行っている分析はどのような

while(overbuy > 0){ 
    for(i in 1:10){ 
    if(df$BuyAmount[i] <= 0) next 
    df$BuyAmount[i] <- pmax(0, df$BuyAmount[i] - 5000) 
    overbuy <- overbuy - 5000 
    print(overbuy) 
    print(df) 
    if(overbuy == 0) break 
    } 
    if(overbuy == 0) break 
}