要对每组相同的行索引进行采样，您可以先生成索引，然后将其传递给slice()。这可能是不必要的，但我们可以将其封装在一个函数中，该函数检查各组是否大小相等。

library(dplyr)

slice_same_idx <- function(data, group = group) {
  n <- data %>%
    group_by({{group}}) %>%
    group_size()
  
  stopifnot("Unequal group sizes" = n_distinct(n) == 1)
  
  idx <- sample(n[1], replace = TRUE)
  
  data %>%
    slice(idx, .by = {{group}})
}

test %>%
  slice_same_idx(name)

# A tibble: 9 × 2
  name  number
  <chr>  <int>
1 a          3
2 a          1
3 a          1
4 b          3
5 b          1
6 b          1
7 c          3
8 c          1
9 c          1