根据条件仅筛选重复的行

问：

在下面的数据中，我想根据他们对 Q40 的回答过滤重复的参与者（Ana、Paul）。参与者应该只回答“无计划”或“计划”，但有时他们同时回答了两者。我只想保留每个重复参与者回答“计划”的行

• 数据为：

  ID     Q40   
  <chr>  <chr> 
1 Maria  Plan  
2 Joseph Plan  
3 Cyntia NoPlan
4 Ana    NoPlan   ## first noPlan
5 Paul   Plan  ## first Plan
6 Ana    Plan  ## then, Plan 
7 Paul   NoPlan ## then, noPlan 

• 期望输出：

  ID     Q40   
  <chr>  <chr> 
1 Maria  Plan  
2 Joseph Plan  
3 Cyntia NoPlan
5 Paul   Plan  
6 Ana    Plan  

• 我是手动完成的，就像这样：

df %>% 
  filter(Q40 %in% c('noPlan', 'Plan')) %>% 
  ungroup() %>% 
  distinct()

then I was removing manually the duplicated ones with (slice()) and their corresponding position.

问题

1：我怎样才能只删除 ID 中重复参与者（同时回答“noPlan”和“plan”）的行，只保留他们的“Plan”行？我敢肯定这很容易做到，但我正在努力。我真的需要一种方法。tidyversetidyverse

重要提示：

1 我不想过滤所有“NoPlan”行，我只想过滤同时回答了 NoPlan 和 Plan 的参与者的“Plan”行。只有重复的，而不是整个样本。

2 我不想只保留第一行，例如 ，我希望能够自己设置条件（在这种情况下，从重复的参与者中过滤“NoPlan”distinc()

3 我不能使用，因为这会从所有参与者中删除“NoPlan”，我只需要过滤重复的参与者distinct(starwars, pick(contains("color")))

• 数据：

structure(list(ID = c("Joseph", "Cyntia", "Paul", "Ana", "Paul", 
"Maria", "Ana"), Q40 = c("Plan", "NoPlan", "Plan", "Plan", "NoPlan", 
"Plan", "NoPlan")), row.names = c(NA, -7L), class = c("tbl_df", 
"tbl", "data.frame"))