如何在dplyr过滤器行中使用For-Loop在特定的调用表中创建Precision？

Question

我具有要遍历的多个模型的Precision / Recall曲线数据，并在特定的Recall级别（例如：10、20、30、40、50 ... 100）获得Precision。 我可以使用以下代码手动完成此操作：

RecallFORPrecison <- AllPRCtestV2 %>%
  filter(Recall>= 0.245 & Recall< 0.255) %>%
  group_by(Model) %>% 
  slice(which.max(Precision))

这是我从上面的代码中得到的：

# A tibble: 5 x 3
# Groups:   Model [5]
    Recall Precision  Model
     <dbl>    <fctr> <fctr>
1 0.251969  0.351648    ANN
2 0.251969  0.395062    BBN
3 0.251969  0.316832     NB
4 0.251969  0.323232     RF
5 0.251969  0.359551    SVM

有没有一种方法可以在过滤器命令中放入for循环，从而针对每种模型类型在我的召回列中跳过10％？