R語言實現(xiàn)選取某一行的最大值

更新時間：2021年04月20日 10:44:03 作者：qizok

這篇文章主要介紹了R語言實現(xiàn)選取某一行的最大值，具有很好的參考價值，希望對大家有所幫助。一起跟隨小編過來看看吧

可以先自定義函數(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"

另一個例子：

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

以上為個人經(jīng)驗，希望能給大家一個參考，也希望大家多多支持腳本之家。如有錯誤或未考慮完全的地方，望不吝賜教。

您可能感興趣的文章:

R語言實現(xiàn)多行注釋的方式
這篇文章主要介紹了R語言實現(xiàn)多行注釋的方式，具有很好的參考價值，希望對大家有所幫助。一起跟隨小編過來看看吧
2021-04-04
基于R語言?數(shù)據(jù)檢驗詳解
這篇文章主要介紹了R語言數(shù)據(jù)檢驗的相關知識，本文給大家介紹的非常詳細，對大家的學習或工作具有一定的參考借鑒價值,需要的朋友可以參考下
2022-03-03
R語言入門使用RStudio制作包含Rcpp代碼的R包
這篇文章主要為大家介紹了R語言入門使用RStudio來制作包含Rcpp代碼的R包，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進步
2021-11-11
R語言如何實現(xiàn)多元線性回歸
這篇文章主要給大家介紹了關于R語言如何實現(xiàn)多元線性回歸的相關資料，文中介紹的非常詳細，對大家的學習或者工作具有一定的參考學習價值，需要的朋友們下面隨著小編來一起學習學習吧
2021-03-03
使用R語言繪制散點圖結合邊際分布圖教程
這篇文章主要介紹了使用R語言利用ggplot繪制散點圖，并且在圖像的兩邊繪制邊際分布圖（包括邊際直方圖與邊際密度函數(shù)）我們這里介紹兩種方法進行繪制
2021-11-11
R語言實現(xiàn)手動設置xy軸刻度的操作
這篇文章主要介紹了R語言實現(xiàn)手動設置xy軸刻度的操作，具有很好的參考價值，希望對大家有所幫助。一起跟隨小編過來看看吧
2021-04-04
R語言-使用快捷鍵快速注釋的實現(xiàn)
這篇文章主要介紹了R語言-使用快捷鍵快速注釋的實現(xiàn)方式，具有很好的參考價值，希望對大家有所幫助。一起跟隨小編過來看看吧
2021-04-04
使用R語言將表格導出為CSV文件簡單示例
這篇文章主要給大家介紹了關于使用R語言將表格導出為CSV文件的相關資料,CSV(逗號分隔值)是一種常見的文本文件格式,廣泛用于數(shù)據(jù)交換,文中通過代碼介紹的非常詳細,需要的朋友可以參考下
2024-02-02
R語言ggplot2拼圖包patchwork安裝使用
這篇文章主要介紹了R語言ggplot2拼圖包patchwork安裝使用的圖文示例詳解，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進步，早日升職加薪
2022-06-06
如何用R語言繪制餅圖和條形圖
這篇文章主要介紹了如何用R語言繪制餅圖和條形圖，幫助大家更好的理解和學習使用R語言，感興趣的朋友可以了解下
2021-03-03