Grazie a @ user20650 per la risposta:
set.seed(1)
mx <- matrix(runif(1e7), ncol=5)
Con apply
:
system.time(which.min.mx <- apply(mx, 1, which.min))
# user system elapsed
# 4.7 0.0 4.7
con max.col
:
system.time(mx.mins.2 <- max.col(-mx, ties="first"))
# user system elapsed
# 0.12 0.00 0.13
all.equal(which.min.mx, mx.mins.2)
# [1] TRUE
Old risposta: Questo è il migliore che ho si avvicinò w esimo. Speriamo che qualcuno abbia qualcosa di meglio come un built-in row.which.min
o alcuni di questi. Dati:
Utilizzando pmin
, ==
, %%
, e alcuni riciclo vettoriale:
system.time({
row.min <- do.call(pmin, as.data.frame(mx))
mx.mins <- which(t(mx == row.min)) %% ncol(mx)
mx.mins[!mx.mins] <- ncol(mx)
})
# user system elapsed
# 0.51 0.00 0.51
all.equal(which.min.mx, mx.mins)
# [1] TRUE
Per non parlare questo tipo di cadute piane sul suo viso se v'è più di un valore minimo in una riga.
L'aiuto 'max.col' qui? http://stackoverflow.com/questions/27404710/finding-the-column-number-of-the-smallest-element-in-a-certain-row – user20650
@ user20650, fantastico, non posso credere di averlo perso nel documenti per 'which.min'; si prega di inviare come risposta e accetterò. – BrodieG
Sentitevi liberi di aggiornare il vostro - avete già fatto tutto il duro lavoro – user20650