在这种类型的数据中，其中Subject s记录了Annotation s的“x”或“m”：

df <- data.frame(
  Subject = c(rep("Rater_1",9), rep("Rater_2",9), rep("Rater_3",9)),
  Trial = c(1:9,1:9,1:9),
  Annotation = c(rep("x",4),rep("m",5),
                 rep("x",2),rep("m",4), rep("x",3),
                 rep("x",1),rep("m",8)),
  batch = rep(c(0,0,0,1,1,1,2,2,2),3)
)

我希望识别其中Subject使用了“x”的所有batch。对于每个Subject和每个batch，我希望将**batch的值“xx”记录为一个整体**。
这仅记录Annotation中存在“x”的位置处的“xx”，但不会将新注解扩展到整个batch：

library(dplyr)
df %>%
  group_by(Subject, batch) %>%
  mutate(Annotation_0 = ifelse(if_any(Annotation, ~str_detect(., 'x')), "xx", Annotation))

怎样才能达到这一理想的产出？

# A tibble: 27 × 5
# Groups:   Subject, batch [9]
   Subject Trial Annotation batch Annotation_0
   <chr>   <int> <chr>      <dbl> <chr>       
 1 Rater_1     1 x              0 xx          
 2 Rater_1     2 x              0 xx          
 3 Rater_1     3 x              0 xx          
 4 Rater_1     4 x              1 xx          
 5 Rater_1     5 m              1 xx           
 6 Rater_1     6 m              1 xx           
 7 Rater_1     7 m              2 m           
 8 Rater_1     8 m              2 m           
 9 Rater_1     9 m              2 m           
10 Rater_2     1 x              0 xx          
11 Rater_2     2 x              0 xx          
12 Rater_2     3 m              0 xx           
13 Rater_2     4 m              1 m           
14 Rater_2     5 m              1 m           
15 Rater_2     6 m              1 m           
16 Rater_2     7 x              2 xx          
17 Rater_2     8 x              2 xx          
18 Rater_2     9 x              2 xx          
19 Rater_3     1 x              0 xx          
20 Rater_3     2 m              0 xx           
21 Rater_3     3 m              0 xx           
22 Rater_3     4 m              1 m           
23 Rater_3     5 m              1 m           
24 Rater_3     6 m              1 m           
25 Rater_3     7 m              2 m           
26 Rater_3     8 m              2 m           
27 Rater_3     9 m              2 m