R语言 实现选取某一行的最大值
更新时间：2021年04月20日 10:44:03 作者：qizok
这篇文章主要介绍了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：
a=c(1,2,4,3,4)
代码如下：
which(a==max(a),arr.ind=TRUE)
输出为：
[1] 3 5
以上为个人经验，希望能给大家一个参考，也希望大家多多支持脚本之家。如有错误或未考虑完全的地方，望不吝赐教。
相关文章
这篇文章主要给大家介绍了关于R语言利用barplot()制作条形图的相关资料，文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值，需要的朋友们下面随着小编来一起学习学习吧2021-03-03
日期时间是常用的一种类型，本文主要介绍了R语言日期时间的使用，文中通过示例代码介绍的非常详细，具有一定的参考价值，感兴趣的小伙伴们可以参考一下2022-03-03
在本篇文章里小编给大家整理的是一篇关于R语言关于非线性最小二乘的知识点实例内容，有兴趣的朋友们可以学习下。2021-05-05
这篇文章主要为大家介绍了R语言如何利用ggplot2绘制QQ图和箱线图，文中的示例代码讲解详细，对我们学习R语言有一定的帮助，需要的可以参考一下2022-06-06
这篇文章主要为大家介绍了R语言绘图学习教程VennDiagram绘制venn的示例详解，有需要的朋友可以借鉴参考下，希望能够有所帮助，祝大家多多进步，早日升职加薪2022-06-06
这篇文章主要为大家介绍了R语言绘制数据可视化Dumbbell plot哑铃图的实现步骤详解，有需要的朋友可以借鉴参考下，希望能够有所帮助，祝大家多多进步2022-02-02
这篇文章主要介绍了R语言实现保留大于或小于特定数值的行操作，具有很好的参考价值，希望对大家有所帮助。一起跟随小编过来看看吧2021-04-04
大多数人仍然使用RStudio进行R语言开发。与RStudio相比，PyCharm具有更多的优势，本文主要介绍了pycharm运行R语言脚本的实现步骤,文中通过图文介绍的非常详细,感兴趣的可以了解一下2023-10-10
这篇文章主要介绍了R语言删除/添加数据框中的某一行/列，文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值，需要的朋友们下面随着小编来一起学习学习吧2021-03-03
在本篇内容里小编给大家带来一篇关于R语言函数详解及实例用法，有需要的朋友们可以学习参考下。2021-03-03
最新评论