我有一个相关矩阵,我试图保持每对(行/列)的最大值(考虑绝对值)。我想问一下,如果我具有特定最大值的位置索引,如何提取值。值。 这是我的示例:在数据帧中选择具有索引的列和行值
mat <- structure(c(0, 0.428291512801413, 0.124436112431533, -0.345870125921382,
0.391613957773281, 0.428291512801413, 0, 0.341415068127906, -0.346724601510298,
0.486360835614514, 0.124436112431533, 0.341415068127906, 0, -0.496213980990412,
0.41819049956841, -0.345870125921382, -0.346724601510298, -0.496213980990412,
0, -0.80231408836218, 0.391613957773281, 0.486360835614514, 0.41819049956841,
-0.80231408836218, 0), .Dim = c(5L, 5L), .Dimnames = list(c("LO3","Tx", "Gh", "RH", "SR"), c("LO3", "Tx", "Gh", "RH", "SR")))
然后,我以最大价值的指标:这使我
ind <- apply(abs(mat), 2, which.max)
:
LO3 Tx Gh RH SR
2 5 4 5 4
我现在想要的东西,它得到的这些位置的值为每列。 这将是:
LO3 Tx Gh
0.4282915 0.4863608 -0.4962140 .....
我试图使用apply
,但我不知道该怎么做。或者如果还有其他方法可以做到这一点。
只是'垫[cbind(1:nrow(mat),ind)]' –