假设我有一个 Dataframe ，如以下代码所创建的 Dataframe ：

library(dplyr)
library(stringr)

letters_comb <- expand.grid(LETTERS, LETTERS) %>% 
  mutate(Combination = paste0(Var1, Var2)) %>% 
  select(Combination) %>% 
  sample_n(100)

set.seed(123) 
n_times <- round(runif(100, 80, 120)) 

df <- data.frame(fac_var = as.factor(rep(letters_comb$Combination, times = n_times)))

如何将df拆分为最大数量的块，使得每个块包含fac_var的每个唯一值，并且每行都包含在块中？使用dplyr（或其他tidyverse封装）的解决方案特别受欢迎。