Вялые поля ввода Купертино при использовании в формах из-за вызовов state.didChange ()

Другой параметр base R будет проверять смежные элементы

df[c(FALSE,df$group[-1]==df$group[-nrow(df)]),]
#   group score
#2      1    10
#3      1    22
#5      2     6
#7      3    20
#9      4     2
#10     4    60
#12     5     5

Здесь я удалил первое наблюдение в «группе» (df$group[-1]) и сравнил (==) с вектором в котором последнее наблюдение удаляется (df$group[-nrow(df)])). Поскольку length сравнения меньше, чем nrow набора данных, мы нажимаем FALSE вверху и используем его как логический индекс для подмножества набора данных.