仅连续数之和

Question

我有一个类似

的数组

a <- c(1,2,3,7,8,14,17,18)

我只想对连续的数字求和，我想用R回答这样。

  

“ 6、15、14、35”

非常感谢您的回复。

Answer 1

使用tapply按连续值分组

tapply(a, cumsum(c(FALSE, diff(a) != 1)), sum)
# 0  1  2  3 
# 6 15 14 35