具有唯一列的子矩阵

Question

我有很大的矩阵。大多数列都有相同的名称。我只是希望从原始矩阵中获取一个子矩阵，这样，行的数量与原始矩阵相同，但对于列，只想拥有一列具有相同名称的列。

>data
  A A  B  C  C
p 1 5  9 13 17
q 2 6 10 14 18
l 3 7 11 15 19
m 4 8 12 16 20

预期产出：

 A  B  C
p 1  9 13
q 2 10 14
l 3 11 15
m 4 12 16

我如何使用subset ()或其他函数执行此操作？

Answer 1

您可以使用duplicated标识要删除的列。

data[ , ! duplicated(colnames(data)) ]