R语言如何实现选取某一行的最大值

小编给大家分享一下R语言如何实现选取某一行的最大值，相信大部分人都还不怎么了解，因此分享这篇文章给大家参考一下，希望大家阅读完这篇文章后大有收获，下面让我们一起去了解一下吧！

可以先自定义函数

也可以用的时候再定义。

> mat <- matrix(c(1:3,7:9,4:6), byrow = T, nc = 3)> mat     [,1] [,2] [,3][1,]    1    2    3[2,]    7    8    9[3,]    4    5    6  > apply(mat, 2, function(x){order(x, decreasing=T)[1]})   # 查找每一列[1] 2 2 2 > apply(mat, 1, function(x){order(x, decreasing=T)[1]})   # 查找每一行[1] 3 3 3> apply(mat, 1, function(x){which.max(x)})                # 查找每一行[1] 3 3 3  > n <- letters[1:5]> n[1] "a" "b" "c" "d" "e" > t <- apply(mat, 1, function(x){which.max(x)})> n[t][1] "c" "c" "c"

另一个例子：

MaxVar <- function(x, na.rm = FALSE) {  ## compute `max`  maxx <- max(x, na.rm = na.rm)  ## which equal the max  wmax <- which(x == max(x))  ## how many equal the max  nmax <- length(wmax)  ## return  out <- if(nmax > 1L) {    c(999, NA)  } else {    c(maxx, wmax)  }  out}  And use it like this: > new <- apply(Mydata[, -1], 1, MaxVar)> new     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10][1,]    3    4  999  999  999    4    4    2    4   999[2,]    1    4   NA   NA   NA    4    2    3    4    NA > Mydata <- cbind(Mydata, Max = new[1, ], Var = new[2, ])> Mydata   ID X1 X2 X3 X4 Max Var1   1  3  1  1  1   3   12   2  1  2  1  4   4   43   3  1  1  1  1 999  NA4   4  1  3  3  1 999  NA5   5  2  2  2  1 999  NA6   6  1  2  3  4   4   47   7  2  4  3  3   4   28   8  1  1  2  1   2   39   9  3  2  1  4   4   410 10  4  4  4  4 999  NA

补充：使用R语言得到向量中所有的最大值或者最小值的下标

比如向量a：

a=c(1,2,4,3,4)

代码如下：

which(a==max(a),arr.ind=TRUE)

输出为：

[1] 3 5

以上是“R语言如何实现选取某一行的最大值”这篇文章的所有内容，感谢各位的阅读！相信大家都有了一定的了解，希望分享的内容对大家有所帮助，如果还想学习更多知识，欢迎关注编程网精选频道！