如何找到與其平均值最接近的矩陣的行和列？ R中

Question

我有一個大的矩陣，像這樣的：

NCols=100 
NRows=100 

myMat<-matrix(runif(NCols*NRows), ncol=NCols) 

我感興趣的定位其中的行和列具有最接近值的平均值或矩陣，如mean(myMat)計算的所有值的中位數。

我怎麼能這樣做R？

Answer 1

試試這個：

set.seed(45) # just for reproducibility 
NCols <- 100 
NRows <- 100 
myMat <- matrix(runif(NCols*NRows), ncol=NCols) 

mat_minus_mean <- abs(myMat - mean(myMat)) 
idx <- which(mat_minus_mean == min(mat_minus_mean), arr.ind = TRUE) 
#  row col 
# [1,] 5 33 

> myMat[idx] 
# [1] 0.5# mean(myMat) is 0.5012474