コールコル名（NAが含まれています）

Question

私はNAを含むDFを持っています。

df <- data.frame(X1= c(NA, 1, 4, NA), 
      X2 = c(34, 75, 1, 4), 
      X3= c(2,9,3,5)) 

私の理想的なアウト

X1 X2 X3 Min 
1 NA 34 2 X3 
2 1 75 9 X1 
3 4 1 3 X2 
4 NA 4 5 X2 

、のようなルックスを来る私は

df$Min <- colnames(df)[apply(df,1,which.min, na.rm=TRUE)] 

を試してみましたが、この1つは

Answer 1

を動作しませんでしたあなたはナ必要はありません。 RM = TRUE which.minを使用して（） - 代わりにこれを試してみてください。

df$Min <- colnames(df)[apply(df,1,which.min)] 

出力：

X1 X2 X3 Min 
1 NA 34 2 X3 
2 1 75 9 X1 
3 4 1 3 X2 
4 NA 4 5 X2 

Answer 2

コード：

foo <- names(df) 
df$Min <- apply(df, 1, function(x) foo[which.min(x)]) 
df 

出力：

X1 X2 X3 Min 
1 NA 34 2 X3 
2 1 75 9 X1 
3 4 1 3 X2 
4 NA 4 5 X2 

Answer 3

ここではそう速くなりますし、任意のループを必要としないという考えです。その後、max.col()を介してカラムごとの最大値を見つけ、データの負を取る、InfとNAを置き換えることができます。また

names(df)[max.col(-replace(df, is.na(df), Inf))] 
# [1] "X3" "X1" "X2" "X2" 

Answer 4

、ちょうどここの選択肢を拡張する上記のソリューションよりもdt <- as.data.table(df)

dt[ , Min:=names(dt)[match(min(.SD, na.rm=T), .SD)], by=1:nrow(dt)][] 
# X1 X2 X3 Min 
#1: NA 34 2 X3 
#2: 1 75 9 X1 
#3: 4 1 3 X2 
#4: NA 4 5 X2 

はるかに簡単ないことを考えるとdata.tableソリューションを、忘れていません。