您可以使用以下代码：

df %>% 
  filter(string == "A" | string == "D") %>%
  group_by(id) %>%
  count(id) %>%
  arrange() %>%
  ungroup() %>%
  slice(1)

输出：

# A tibble: 1 × 2
  id        n
  <chr> <int>
1 abc       5

在以R为底的情况下，可以为每个string获得最常见的id，如下所示：

apply(table(df$id, df$string), 2, function(x) {
   rownames(table(df$id, df$string))[which.max(x)] })
#>     A     B     D 
#>  "abc" "efg" "abc"