R：データフレームの行ごとに一定の基準を満たす最後の値の位置を探す

Question

私はこのようなものに見えるのデータフレームがあります。

M0 M1 M2 M3 M4 M5 M6 M7 M8 
1 1 0 0 0 NA NA NA NA 
2 2 2 2 2 2 2 0 0 
2 2 2 2 2 0 NA NA NA 
2 2 2 2 2 0 0 0 0 

は、私が知りたいのですが位置（列）であるのを各行で0より大きい最後の値。

所望の出力は、これらの索引付け位置ここで

を含むベクターであろう：（M1、M6、M4、M4）

Answer 1

あなたはmax.colあなたは出力が所望与える可能性

names(df)[max.col(!is.na(df) & df > 0, ties.method = "last")] 
# [1] "M1" "M6" "M4" "M4" 

Answer 2

一つの解決策は、長い形式に広いから再形成し、右端を選択することです行IDによって、すなわち、最後の列> 0：

library(data.table) 
melt(setDT(DF)[, rn := .I], id.vars = "rn", na.rm = TRUE)[ 
    value > 0, last(variable), by = rn] 

 rn  V1 
1:  1  M1 
2:  2  M6 
3:  3  M4 
4:  4  M4 

場合

melt(setDT(DF)[, rn := .I], id.vars = "rn", na.rm = TRUE)[ 
    value > 0, last(variable), by = rn][, V1] 

[1] M1 M6 M4 M4 
Levels: M0 M1 M2 M3 M4 M5 M6 M7 M8 

Answer 3

ここでは、applyを使って何ができるかです：あなただけのベクトルがしたいです。基本的には、apply内の関数はデータ> 0を行方向に検索し、最後のものをtail(x,1)を使用して見つけ、対応する列名を見つけます。

df <- read.table(text="M0 M1 M2 M3 M4 M5 M6 M7 M8 
1 1 0 0 0 NA NA NA NA 
       2 2 2 2 2 2 2 0 0 
       2 2 2 2 2 0 NA NA NA 
       2 2 2 2 2 0 0 0 0",header=TRUE, stringsAsFactors=FALSE) 

names(df)[apply(df, 1, function(x) tail(which(x > 0), 1))] 

[1] "M1" "M6" "M4" "M4"