Question

我是R的新手，我正在学习。我已经计算了这个区别，就像这样。（与欧米茄的差异）

final_wights <- apply(wjs,2, function(x) (omega - x))^2

现在我想获取最小列的列号。我可以使用

获得最小列值

col <- apply(final_wights, 2, min)，

但是我想获得索引，我如何才能获得矩阵中的索引列号

Answer 1

您可能不需要apply

final_weights <-  (wjs-omega)^2

要获取具有最小值的列的索引，您可以将which与arr.ind=TRUE一起使用以获取＆＃39;行/列＆＃39; index（@Bhas评论的修改）

which(final_weights == min(final_weights), arr.ind=TRUE)[,2]

数据

set.seed(24)
wjs <- as.data.frame(matrix(sample(0:20, 5*10, replace=TRUE), ncol=5))
set.seed(42)
omega <- as.data.frame(matrix(sample(0:20, 5*10, replace=TRUE), ncol=5))

R Matrix，获取最小列的索引

1 个答案:

数据