R: Условно подмножество строк

Question

У меня есть необходимость подмножества данных по строкам на основе переменной «Флаг». То есть, в примере ниже, если флаг == 1 сопровождается тремя или любыми 0, то суммируйте M1 и M2 для трех строк, где флаг == 0. Я ожидаю, что в G1 + G2 количество таких событий будет изменяться , Для каждого требуется сводка.

Может ли такое подмножество и подведение итогов выполняться такими функциями, как агрегат или его варианты, или это должно быть закодировано с помощью циклов, явно индексируя каждый элемент? Любые намеки были бы наиболее ценными.

G1 G2 G3 Flag M1 M2 
10 1 0 0 0 5336.682 
10 1 0 1 1 1871.782 
10 1 0 0 0 3330.898 
10 1 0 0 0 763.134 
10 1 0 0 1 1183.485 
10 1 0 0 1 385.664 
10 1 0 0 1 372.036 
10 1 0 1 1 329.601 
10 1 1 1 0 281.965 
10 1 1 0 0 377.866 
10 1 1 0 0 328.342 
10 1 1 0 0 512.528 
10 1 1 1 0 777.216 
10 1 1 0 0 409.559 
10 1 1 1 0 417.606 
10 1 1 1 0 673.728 
10 1 1 0 0 1090.082 
10 1 1 0 0 345.481 
10 1 1 0 0 329.294 
10 2 ... ... ... ... 
11 1 ... ... ... ... 
... ... ... ... ... ... 
11 2 ... ... ... ... 

Answer 1

Вы можете использовать data.table. Во-первых, поместите ваши данные в dataframe под названием «df». Затем запустите

dt <- data.table(df) 
dt[, group := cumsum(Flag)] 
dt[, list(M1 = sum(M1[-1]), M2 = sum(M2[-1])), by = "group"] 

Вы не указали, какое резюме вам нужно для солнца, поэтому мы просто суммируем M1 и M2.