一致/不一致レコードを作成するための一致結果の使用

Question

日付と結果（WまたはL）からなるdata.frameがある場合、結果を使用して結果レコードを作成するにはどうすればよいですか？例えば、私が持っている場合：

df 
     date  Result Wins Losses 
# 1 2015-04-12 W  5  2 
# 2 2015-04-10 W  4  2 
# 3 2015-04-09 W  3  2 
# 4 2015-04-08 W  2  2 
# 5 2015-04-08 L  1  2 
# 6 2015-04-07 W  1  1 
# 7 2015-04-06 L  0  1 

私が出ている「ソリューション」のすべて

はただ勝利に応じて、各列に1を追加したり：

df 
     date  Result 
# 1 2015-04-12 W 
# 2 2015-04-10 W 
# 3 2015-04-09 W 
# 4 2015-04-08 W 
# 5 2015-04-08 L 
# 6 2015-04-07 W 
# 7 2015-04-06 L 

は、どのように私のような何かを得ることができます損失。例：

for(i in 1:dim(df)[1]) { 
    if(df$Result[i] == "W") { 
    df$Wins[i] <- + 1 
    } 
    if(df$Result[i] == "L") { 
    df$Losses[i] <- + 1 
    } 
} 

ありがとうございます。すべての助けをいただければ幸いです。

Answer 1

は見事に働いたこの

df$Wins <- rev(cumsum(rev(ifelse(df$Result=="W",1,0)))) 
df$Losses <- rev(cumsum(rev(ifelse(df$Result=="L",1,0))))