我没有找到"表格"方法（操作数据表，例如整洁样式），但这里有一个依赖于列表操作和{purrr}助手的递归解决方案：

• 加载程序包：

library(dplyr)
library(purrr)

• 创建垃圾箱列表，每个物品都有容量（容纳人员）和成员（收集人员）：

x一个一个一个一个x一个一个二个x

• 创建人员列表，每个人员列表具有可用的箱和属性has_bin，属性has_bin被设置为TRUE，一旦该人员被给予箱：

一个三个三个一个

• 递归函数collect_persons，其（通过匹配箱字母）抓取每个箱的人，直到所有箱被填满或所有人已经被放置：

collect_persons <- function(bins, persons){
    ## exclude bins already filled:
    free_bins <- bins |> discard(~ {.x$capacity < 1})
    ## exclude persons already placed:
    free_persons <- persons |> discard(~ .x$has_bin)
    ## EXIT for lack of free bins or persons:
    if(!(length(free_persons) & length(free_bins))) return(bins)
    ## what's the label (letter) of the current free bin?
    this_bin_letter <- names(free_bins)[1]
    this_free_bin <- free_bins[[this_bin_letter]]
    ## how many persons can this free bin accomodate?
    bin_capacity = this_free_bin$capacity
    ## find candidate persons for a free_bin:
    person_index = grep(this_bin_letter, map_chr(free_persons, 'available_bins'))
    ## limit matches to current bin capacity:
    person_index = na.omit(person_index[1:bin_capacity])
    ## index of the first n persons to fill the bin's capacity n:
    candidate_names = names(free_persons)[person_index]
    ## add the indexed persons as bin members: 
    bins[[this_bin_letter]]$members = candidate_names
    ## mark these persons as already placed:
    persons[candidate_names] <- persons[candidate_names] |> map(~ modify_in(.x, 'has_bin', ~ TRUE))
    ## print(persons[candidate_names])
    ## mark the current bin as full:
    bins[[this_bin_letter]]$capacity = 0
    ## repeat until either all bins are full or all persons are placed:
    collect_persons(bins, persons)
}

• 调用该函数并将结果整形为 Dataframe ：

data.frame(persons = collect_persons(bins, persons) |>
               imap('members', ~ .x) |> unlist()
           ) |>
    tibble::rownames_to_column('bin') |> ## package tibble required
    mutate(bin = substr(bin, 1, 1))

输出：

bin  persons
1   A    James
2   A    Terry
3   B     Fred
4   C  Scottie
5   C Harrison
6   C  Patrick
7   D     Gary
8   D    Kevin
9   E    Clint