Накопительная сумма до достижения максимума, затем повторить с нуля в следующей строке

Я думаю, что это лучше всего сделать с помощью цикла 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 равен 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

Я до сих пор не понимаю, когда следует перезапустить сумму и будет ли она тогда равна нулю. Желаемый результат очень бы помог.

Тем не менее, я не могу не думать, что простое индексирование и вычитание было бы простым способом сделать это. Приведенный ниже код дает тот же результат, что и решение @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]