最大到達までの累積合計、次の行のゼロから繰り返す

Question

これはかなり簡単な質問ですが、私の人生では答えが見つからないようです。私はかなり標準的なデータフレームを持っていますが、何かしようとしているのは、ある値（正確な値かそれより大きい値）に達するまで値の列を合計し、その時点で1を新しい列0分で合計を再開します。

私は分の分の列、保持列、および累積合計の列を持っています（私が使用している例は実際の完全なデータセットよりもはるかにクリーンです）

minutes  difference  keep  difference_sum 
1052991158  0   0   0 
1052991338  180   0   180 
1052991518  180   0   360 
1052991698  180   0   540 
1052991878  180   0   720 
1052992058  180   0   900 
1052992238  180   0   1080 
1052992418  180   0   1260 
1052992598  180   0   1440 
1052992778  180   0   1620 
1052992958  180   0   1800 

差分和カラムをコード

caribou.sub$difference_sum<-cumsum(difference) 

用いて計算しました。

私がしたいのは、上記のコードを、合計値が1470またはそれより大きい任意の数に達すると、それを保持列に1を入れ、その後合計を再開し、データセット。

ありがとうございました。さらに詳しい情報が必要な場合はお知らせください。

Aydenは

Answer 1

私は箱の外にそうできる機能を考えることはできません、これはforループで行わ最高だと思います。私があなたを正しく理解していれば、次のことはあなたがしたいことをするはずです。

current.sum <- 0 
for (c in 1:nrow(caribou.sub)) { 
    current.sum <- current.sum + caribou.sub[c, "difference"] 
    carribou.sub[c, "difference_sum"] <- current.sum 
    if (current.sum >= 1470) { 
     caribou.sub[c, "keep"] <- 1 
     current.sum <- 0 
    } 
} 

あなたが望むものが正確でない場合は、お気軽にコメントしてください。しかし、alexwhanによって指摘されているように、あなたの説明は完全に明確ではありません。あなたのdata.frameを想定し

Answer 2

がdfです：

df$difference_sum <- c(0, head(cumsum(df$difference), -1)) 
# get length of 0's (first keep value gives the actual length) 
len <- sum(df$difference_sum %/% 1470 == 0) 
df$keep <- (seq_len(nrow(df))-1) %/% len 
df <- transform(df, difference_sum = ave(difference, keep, 
      FUN=function(x) c(0, head(cumsum(x), -1)))) 

#  minutes difference keep difference_sum 
# 1 1052991158  180 0    0 
# 2 1052991338  180 0   180 
# 3 1052991518  180 0   360 
# 4 1052991698  180 0   540 
# 5 1052991878  180 0   720 
# 6 1052992058  180 0   900 
# 7 1052992238  180 0   1080 
# 8 1052992418  180 0   1260 
# 9 1052992598  180 0   1440 
# 10 1052992778  180 1    0 
# 11 1052992958  180 1   180 

Answer 3

私はまだ合計が再起動する必要があるとき、それはゼロであるべき場合については理解していません。望む結果が大いに役立つでしょう。

しかし、インデックス作成と減算だけで簡単に行うことはできません。以下のコードは、@ Henrikのソリューションと同じ結果を示しています。

df$difference_sum <- cumsum(df$difference) 
step <- (df$difference_sum %/% 1470) + 1 
k <- which(diff(step) > 0) + 1 
df$keep <- 0 
df$keep[k] <- 1 
step[k] <- step[k] - 1 
df$difference_sum <- df$difference_sum - c(0, df$difference_sum[k])[step]