Consecutive group number in R

Question

This problem is very similar to Consecutive value after column value change in R

So for

SOG <- c(4,4,0,0,0,3,4,5,0,0,1,2,0,0,0)

Answer 1

Assuming you mean a "group of SOG" is a set of consecutive non-zero SOG values, i.e. starts with a non-zero SOG value and ends with a non-zero SOG value (not necessarily the same value):

Trips <- ifelse(SOG>0, cumsum(c(SOG[1]>0, diff(SOG>0)) == 1), 0)
# [1] 1 1 0 0 0 2 2 2 0 0 3 3 0 0 0