具有独特色号的子矩阵

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)) ]