小编给大家分享一下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 Var
1 1 3 1 1 1 3 1
2 2 1 2 1 4 4 4
3 3 1 1 1 1 999 NA
4 4 1 3 3 1 999 NA
5 5 2 2 2 1 999 NA
6 6 1 2 3 4 4 4
7 7 2 4 3 3 4 2
8 8 1 1 2 1 2 3
9 9 3 2 1 4 4 4
10 10 4 4 4 4 999 NA补充：使用R语言得到向量中所有的最大值或者最小值的下标
a=c(1,2,4,3,4)which(a==max(a),arr.ind=TRUE)输出为：
[1] 3 5
以上是“R语言如何实现选取某一行的最大值”这篇文章的所有内容，感谢各位的阅读！相信大家都有了一定的了解，希望分享的内容对大家有所帮助，如果还想学习更多知识，欢迎关注亿速云行业资讯频道！
亿速云「云服务器」，即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘，价格低至29元/月。点击查看>>
免责声明：本站发布的内容（图片、视频和文字）以原创、转载和分享为主，文章观点不代表本网站立场，如果涉及侵权请联系站长邮箱：is@yisu.com进行举报，并提供相关证据，一经查实，将立刻删除涉嫌侵权内容。
