R語言 實(shí)現(xiàn)選取某一行的最大值
更新時(shí)間：2021年04月20日 10:44:03 作者：qizok
這篇文章主要介紹了R語言 實(shí)現(xiàn)選取某一行的最大值，具有很好的參考價(jià)值，希望對大家有所幫助。一起跟隨小編過來看看吧
可以先自定義函數(shù)
也可以用的時(shí)候再定義。
> 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"
另一個(gè)例子：
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
補(bǔ)充：使用R語言得到向量中所有的最大值或者最小值的下標(biāo)
比如向量a：
a=c(1,2,4,3,4)
代碼如下：
which(a==max(a),arr.ind=TRUE)
輸出為：
[1] 3 5
以上為個(gè)人經(jīng)驗(yàn)，希望能給大家一個(gè)參考，也希望大家多多支持腳本之家。如有錯(cuò)誤或未考慮完全的地方，望不吝賜教。
相關(guān)文章
這篇文章主要給大家介紹了關(guān)于R語言利用barplot()制作條形圖的相關(guān)資料，文中通過示例代碼介紹的非常詳細(xì)，對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧2021-03-03
日期時(shí)間是常用的一種類型，本文主要介紹了R語言日期時(shí)間的使用，文中通過示例代碼介紹的非常詳細(xì)，具有一定的參考價(jià)值，感興趣的小伙伴們可以參考一下2022-03-03
R語言關(guān)于非線性最小二乘的知識(shí)點(diǎn)實(shí)例
在本篇文章里小編給大家整理的是一篇關(guān)于R語言關(guān)于非線性最小二乘的知識(shí)點(diǎn)實(shí)例內(nèi)容，有興趣的朋友們可以學(xué)習(xí)下。2021-05-05
這篇文章主要為大家介紹了R語言如何利用ggplot2繪制QQ圖和箱線圖，文中的示例代碼講解詳細(xì)，對我們學(xué)習(xí)R語言有一定的幫助，需要的可以參考一下2022-06-06
R語言繪圖學(xué)習(xí)教程VennDiagram繪制venn
這篇文章主要為大家介紹了R語言繪圖學(xué)習(xí)教程VennDiagram繪制venn的示例詳解，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進(jìn)步，早日升職加薪2022-06-06
R語言繪制數(shù)據(jù)可視化Dumbbell?plot啞鈴圖
這篇文章主要為大家介紹了R語言繪制數(shù)據(jù)可視化Dumbbell?plot啞鈴圖的實(shí)現(xiàn)步驟詳解，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進(jìn)步2022-02-02
這篇文章主要介紹了R語言實(shí)現(xiàn)保留大于或小于特定數(shù)值的行操作，具有很好的參考價(jià)值，希望對大家有所幫助。一起跟隨小編過來看看吧2021-04-04
pycharm實(shí)現(xiàn)R語言運(yùn)行環(huán)境安裝配置的實(shí)現(xiàn)步驟
大多數(shù)人仍然使用RStudio進(jìn)行R語言開發(fā)。與RStudio相比，PyCharm具有更多的優(yōu)勢，本文主要介紹了pycharm運(yùn)行R語言腳本的實(shí)現(xiàn)步驟,文中通過圖文介紹的非常詳細(xì),感興趣的可以了解一下2023-10-10
這篇文章主要介紹了R語言刪除/添加數(shù)據(jù)框中的某一行/列，文中通過示例代碼介紹的非常詳細(xì)，對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧2021-03-03
在本篇內(nèi)容里小編給大家?guī)硪黄P(guān)于R語言函數(shù)詳解及實(shí)例用法，有需要的朋友們可以學(xué)習(xí)參考下。2021-03-03