R：查找矩阵的类似列

我有一个矩阵，有几列包含信号。有些列非常相似（但不相等），因为它们共享最高值，而只有最低值（噪波）不同。我只想为每个人保留一个专栏，但我不知道怎么做。 例如，从以下矩阵开始：

1     150     0     2     150
25    100     25    25    100
170   30      170   170   30
230   6       230   230   5

我只想和你在一起

1    150
25   100
170  30
230  6

有什么好主意吗

这就是我迄今为止所尝试的： 如果我的矩阵是“x”，我创建了矩阵“a”：

---

a这只是一个想法，还没有完全充实。您可能会为此使用群集：

mat <- read.table(text="1     150     0     2     150
25    100     25    25    100
170   30      170   170   30
230   6       230   230   5")
mat <- as.matrix(mat)
d <- dist(t(mat), method = "euclidean") # distance matrix
fit <- hclust(d, method = "ward.D2") 
plot(fit)

mattry
a
mat <- read.table(text="1     150     0     2     150
25    100     25    25    100
170   30      170   170   30
230   6       230   230   5")
mat <- as.matrix(mat)
d <- dist(t(mat), method = "euclidean") # distance matrix
fit <- hclust(d, method = "ward.D2") 
plot(fit)