Rの条件に基づいて複数の列を減算します

debugcn 投稿 Dev

ラウール・ミシュラ

このようなデータセットがあります。新しいデータセットで、金額の列と剰余の列を減算したいと思います。たとえば、5つの金額列と3つの剰余列がある場合、最初の金額列を最初の剰余列から差し引く必要があります。2番目は2番目、3番目は3番目です。最後の残りの2つの金額の列はそのままである必要があります。

amount1  amount2   amount3   amount4  amount5     remainder1  remainder2    remainder3  
 100      250       150        250       100         80         100          100 
 200      200       350        450       100        120         100          50
 300      150       450        200       100        150         100          100
 250      550       550        100       200         50         500          200
 550      200       650        250       200        500         100          500

私の新しいデータセットは次のようになっている必要があります。amは金額を表し、remは剰余を表すことに注意してください。

 newamount1       newamount2         newamount3      newamount4     newamount5     
 20(am1-rem1)        150(am2-rem2)      50(am3-rem3)   amount4        amount5
 80                  100                300            amount4        amount5
 150                 50                 350            amount4        amount5
 200                 50                 350            amount4        amount5
 50                  100                100            amount4        amount4

ロナックシャー

ベースRでは、次を使用できます。

am_cols <- grep('Principal_', names(summary))

rm_cols <- grep('PrincipalPaid_', names(summary))

summary[is.na(summary)] <- 0

result <- cbind(summary[head(am_cols, length(rm_cols))] - summary[rm_cols], 
      summary[tail(am_cols, -length(rm_cols))])
names(result) <- paste0('new_principal', seq_along(result))
cbind(summary[1], result)

#  LoanId new_principal1 new_principal2 new_principal3 new_principal4
#1 825334           1965           2030           2051           2095
#2 825337           1965           2030           2051           2095
#3 838276           1961           2026           2047           2091
#4 850614              0           2275           2296           2346
#5 851791              0           2037           2059           2103

この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。

侵害の場合は、連絡してください[email protected]