Удалить определенные строки в R

Question

В общем, я знаю, как удалить строки в R. Однако для этого конкретного требования я не уверен, как действовать. Вот идея о том, что мне нужно делать с данными:

ID  MONTH INCOME 
1. 00000012 6  60 
2. 00000012 8  65 
3. 00000015 12  70 
4. 00000025 4  45 
5. 00000025 8  60 
6. 00000032 6  10 
7. 00000035 6  30 

Краткое описание каждой колонки:

Первые 7 цифр ID идентификации агента. Таким образом, в первой строке 00000012 означает агент 1. Последняя цифра - номер интервью. Таким образом, в третьем ряду 00000015 означает агент 1, интервью 5.

Месяц и доход просты.

Что должно быть сделано

нужно удалить каждый идентификатор, который не включает в себя как на 2-й и 5-й интервью.

Мне нужно иметь только макс. месяц для второго собеседования и 5-е интервью для каждого удостоверения личности.

Так что, если я очистил данные правильно, я бы:

ID  MONTH INCOME 
2. 00000012 8  65 
3. 00000015 12  70 
6. 00000032 6  10 
7. 00000035 6  30 

Обратите внимание ряд 4,5 ушел, потому что не было никакого второго интервью для агента 2. Ряд 1 ушел, потому что было выше месяц для агента 1, интервью 2.

Мои текущие мысли, как это сделать, кажутся чрезмерно сложными. Я имею в виду разбить ID на две колонки, одну с первыми 7 цифрами, другую колонку с последней цифрой. Затем проведите цикл по всем данным, и в каждой строке запустите другой цикл, чтобы увидеть, соответствует ли идентификатор, соответствующий строке, интервью 2 и интервью 5. Если это так, отлично. Если это не так, я должен удалить все строки с этим идентификатором.

Далее, я должен сделать аналогичную вещь для удаления месяцев без макс.

Я чувствую, что могу сделать выше, но это очень громоздко. Есть лучший способ сделать это? Спасибо.

Answer 1

Вы можете сделать что-то подобное:

library(stringi) 
Agents <- substr(df$ID,1,nchar(df$ID)-1) 
A2 <- stri_endswith_fixed(df$ID,"2", fixed = T) 
A5 <- stri_endswith_fixed(df$ID,"5", fixed = T) 
A2and5 <- intersect(Agents[A5], Agents[A2]) 
df[Agents %in% A2and5,]