R從列索引中選擇值

我在data.frame中有兩組列：一個位置的時間以及該位置的屬性。R從列索引中選擇值

> FRAME <- data.frame(cbind(rnorm(5, 0,1), rnorm(5, 0,1), rchisq(5, 1,4), rchisq(5,1,4))) 
> names(FRAME) <- c("Var1", "Var2", "Time1", "Time2") 
> FRAME$LONGEST <- apply(FRAME[,3:4], 1, function(x) which.max(x)) 
> FRAME 
     Var1  Var2 Time1  Time2 
1 0.2919722 -0.1069673 4.666482 1.556280 
2 -0.6518142 1.1226106 4.867360 9.251785 
3 -1.8612779 0.2874144 7.578548 1.820536 
4 -0.7059450 -0.1036744 1.428684 16.937638 
5 2.1793696 0.8993723 1.639895 7.942257

我想選擇一個新的變量取Var*具有與其關聯的最長Time*。確定哪些列是很容易的，

> FRAME 
     Var1  Var2 Time1  Time2 LONGEST 
1 0.2919722 -0.1069673 4.666482 1.556280  1 
2 -0.6518142 1.1226106 4.867360 9.251785  2 
3 -1.8612779 0.2874144 7.578548 1.820536  1 
4 -0.7059450 -0.1036744 1.428684 16.937638  2 
5 2.1793696 0.8993723 1.639895 7.942257  2

的最直接方式給我檢索正確的列給出了完全無用的結果

FRAME[,FRAME$LONGEST] 
     Var1  Var2  Var1.1  Var2.1  Var2.2 
1 0.2919722 -0.1069673 0.2919722 -0.1069673 -0.1069673 
2 -0.6518142 1.1226106 -0.6518142 1.1226106 1.1226106 
3 -1.8612779 0.2874144 -1.8612779 0.2874144 0.2874144 
4 -0.7059450 -0.1036744 -0.7059450 -0.1036744 -0.1036744 
5 2.1793696 0.8993723 2.1793696 0.8993723 0.8993723

我缺少什麼？有沒有辦法將which.max()更改爲從不同於其參考的矩陣中進行選擇？

來源

2013-08-06 gregmacfarlane

什麼剛：

apply(FRAME,1,function(x) x[1:2][which.max(x[3:4])])

來源

2013-08-06 15:50:49 joran

輝煌。我以爲我嘗試過'which.max'和'apply'的所有組合。忘了''''可以堆疊以及嵌套。 – gregmacfarlane

R從列索引中選擇值

回答

相關問題