r - 如何删除R中重复的列名？

Question

我有非常大的矩阵，我知道它们的一些列名是重复的。所以我只想找到那些重复的列名并从重复的列中删除。
我试过 duplicate() ，但它会删除重复的条目。
有人会帮我在 R 中实现这个吗？
关键是，重复的列名可能没有重复的整数。

Answer 1

比方说 temp是你的矩阵

temp <- matrix(seq_len(15), 5, 3)
colnames(temp) <- c("A", "A", "B")

##      A  A  B
## [1,] 1  6 11
## [2,] 2  7 12
## [3,] 3  8 13
## [4,] 4  9 14
## [5,] 5 10 15

你可以做

temp <- temp[, !duplicated(colnames(temp))]

##      A  B
## [1,] 1 11
## [2,] 2 12
## [3,] 3 13
## [4,] 4 14
## [5,] 5 15

或者，如果你想保留最后一个重复的列，你可以这样做

temp <- temp[, !duplicated(colnames(temp), fromLast = TRUE)] 

##       A  B
## [1,]  6 11
## [2,]  7 12
## [3,]  8 13
## [4,]  9 14
## [5,] 10 15