Вот вариант, где мы получаем разницу между альтернативными столбцами, удаляя первый столбец, последний столбец, конвертируя в логическую матрицу (== 1
) и получая данные rowSums
rowSums((df1[-1] - df1[-ncol(df1)]) == 1) + 1
#[1] 5 4 4 4 4 4 4 4 4 4
df1 <- data.frame(V1 = 1, V2 = 2, V3 = 3, V4 = 4, V5 = 5:14)