wolfram-mathematica - 如何仅在 Mathematica 中基于列表项的一部分删除重复项

Question

我有以下数据集(仅显示快照)

data = {{0.1, 0.2, 5}, {0.1, 0.3, 7}, {0.2, 0.2, 1}, {0.1, 0.2, 9}}

换句话说，数据是{A, B, C}的格式。我只想删除基于 A 和 B 的重复项。我希望输出是(有效删除示例中的最后一项)

{{0.1, 0.2, 5}, {0.1, 0.3, 7}, {0.2, 0.2, 1}}

DeleteDuplicates[data] 对我不起作用，因为它在重复检测和删除中使用了所有 A、B 和 C。

Answer 1

DeleteDuplicates 的文档中或多或少对此进行了解释。

DeleteDuplicates[data, Take[#1, 2] == Take[#2, 2] &]

应该做你想做的事:它定义了 data 的任意两个第一级元素(#1 和 #2)的相等函数作为前两个子元素的相等性(这就是 Take [ ..., 2] 确实如此)。