呵呵，再改进改进，写了函数n.max(a,b)，用来求矩阵a中由大到小前b个数所在的位置，默认为前10个

我也是刚学，不对的地方多指教，呵呵

x=matrix(as.integer(rnorm(100)*100),10,10);x
y=sort(x,decreasing=T)[1:10];y
index=numeric(20)
i=1
for(j in 1:10)
{
index=which(x==y[j],arr.ind=T)[1]
index[i+1]=which(x==y[j],arr.ind=T)[2]
i=i+2
}
index
matrix(index,10,2)

楼上都是高手，学习了！

> a=matrix(rnorm(12)*10,3,4)
> a
          [,1]       [,2]        [,3]      [,4]
[1,] 0.8269864  -2.122009 -25.4466095 10.469310
[2,] 1.6814683  -8.524294   5.3625801 -5.064049
[3,] 8.0554673 -12.966748   0.2346567  6.479620
> n.max(a,9)
      [,1] [,2]
[1,]    1    4
[2,]    3    1
[3,]    3    4
[4,]    2    3
[5,]    2    1
[6,]    1    1
[7,]    3    3
[8,]    1    2
[9,]    2    4

不过有个问题是，如果产生的数据有两个或者多于两个数据大小相同的时候，这个函数就会出现错误
所以前提是所使用的矩阵里边没有重复数据
呵呵，谁再帮忙改改吧

可以先把所有的数字排序，找出前十个最大的位置，然后再变换一下。

n.max函数中间有个地方错了
r[i,]=which(a==a[order(-a)]【i】,arr.ind=T)
好奇怪，为什么会显示不全呢

这样就不用循环了。

x <- matrix(sample(1:20), 5, 4)
top10 <- order(x, decreasing = TRUE)[1:10]
n1 <- nrow(x)
out <- cbind(row = (top10 - 1) %% n1 + 1, col = ((top10 -1) %/% n1) + 1)

学习中。。。

Thanks a lot!

perfect, zan

您好，请问并列最大值问题如何解决