R：如何对数据框中的行进行分组，ID 行满足条件，然后删除该组的先前行？

Question

我有一个客户数据框（由 ID 号标识）、他们在四年中每年购买的两种产品的单位数量，以及最后一列标识新客户首次购买的年份（'key' 列）。问题：数据框包含新客户首次购买前几年的行。我需要删除这些行。例如，这个数据框：

   customer year item.A item.B  key
1         1 2000     NA     NA         <NA>
2         1 2001     NA     NA         <NA>
3         1 2002      1      5 new.customer
4         1 2003      2      6         <NA>
5         2 2000     NA     NA         <NA>
6         2 2001     NA     NA         <NA>
7         2 2002     NA     NA         <NA>
8         2 2003      2      7 new.customer
9         3 2000      2      4         <NA>
10        3 2001      6      4         <NA>
11        3 2002      2      5         <NA>
12        3 2003      1      8         <NA>

需要看起来像这样：

  customer year item.A item.B key
1        1 2002      1      5 new.customer
2        1 2003      2      6         <NA>
3        2 2003      2      7 new.customer
4        3 2000      2      4         <NA>
5        3 2001      6      4         <NA>
6        3 2002      2      5         <NA>
7        3 2003      1      8         <NA>

我想我可以使用 dplyr/tidyr - 组、lead/lag 和切片（或者可能是过滤器和 drop_na）的组合来做到这一点，但我不知道如何一旦我确定了满足条件 "key"=="new.customer" 的行，就可以在客户组中向后删除。感谢您的任何建议（下面完整数据框的代码）。

a<-c(1,1,1,1,2,2,2,2,3,3,3,3)
b<-c(2000,2001,2002,2003,2000,2001,2002,2003,2000,2001,2002,2003)
c<-c(NA,NA,1,2,NA,NA,NA,2,2,6,2,1)
d<-c(NA,NA,5,6,NA,NA,NA,7,4,4,5,8)
e<-c(NA,NA,"new",NA,NA,NA,NA,"new",NA,NA,NA,NA) 
df <- data.frame("customer" =a, "year" = b, "C" = c, "D" = d,"key"=e)
df

Answer 1

作为第一步，我在关键列中标记现有客户（在本例中为客户 3）-

df %>% 
  group_by(customer) %>% 
  mutate(
    key = as.character(key), # can be avoided if key is a character to begin with
    key = ifelse(row_number() == 1 & (!is.na(C) | !is.na(D)), "existing", key)
  ) %>% 
  filter(cumsum(!is.na(key)) > 0) %>% 
  ungroup()

# A tibble: 7 x 5
  customer  year     C     D key     
     <dbl> <dbl> <dbl> <dbl> <chr>   
1        1  2002     1     5 new     
2        1  2003     2     6 NA      
3        2  2003     2     7 new     
4        3  2000     2     4 existing
5        3  2001     6     4 NA      
6        3  2002     2     5 NA      
7        3  2003     1     8 NA

R：如何对数据框中的行进行分组，ID 行满足条件，然后删除该组的先前行？

R: How can I group rows in a dataframe, ID rows meeting a condition, then delete prior rows for the group?

conditional

r

delete-row

dataframe