识别行签名以满足唯一性

Question

将问题提炼为功能性术语：

给出一个值列表（让我们使用字母）

uniqueList <- letters[1:9]

以及随机组合中该列表中值的4列数据框，其中一些重复（在此使用combn生成合理的数据传真，但我的数据来自用户输入的数据）

data <- t(combn(uniqueList,4))

如何识别并选择该数据集中的最小行数（及其索引），使列表中的每个值至少显示一次，无论它出现在哪个列中？

在我试图解决的实际问题中，我需要从真实数据中生成最少数量的样本记录，以便我在4列中至少有一次值列表中的每个唯一值。

Answer 1

也许这有效

Array
(
    [0] => stdClass Object
        (
            [id] => 26
            [comment] => 89oiu
        )

    [1] => stdClass Object
        (
            [id] => 27
            [comment] => comment 2
        )

)