utilizzando la funzione in lapply in data.table in r

Question

Se è presente un set di dati di esempio come indicato di seguito.

> tmp <- data.table(x=c(1:10),y=(5:14)) 
> tmp 
    x y 
1: 1 5 
2: 2 6 
3: 3 7 
4: 4 8 
5: 5 9 
6: 6 10 
7: 7 11 
8: 8 12 
9: 9 13 
10: 10 14 

Voglio scegliere il numero più basso e voglio cambiare il valore 0 con gli altri numeri.

come

x y 
1: 1 5 
2: 2 6 
3: 0 0 
4: 0 0 
5: 0 0 
6: 0 0 
7: 0 0 
8: 0 0 
9: 0 0 
10: 0 0 

Penso che la codifica è

tmp[, c("x","y"):=lapply(.SD, x[which(!x %in% sort(x)[1:2])] = 0}), .SDcols=c("x","y")] 

ma cambia tutto 0

Come posso risolvere questo problema.

Answer 1

Può essere che si può provare

tmp[, lapply(.SD, function(x) replace(x, 
      !rank(x, ties.method='first') %in% 1:2, 0))] 
# x y 
#1: 1 5 
#2: 2 6 
#3: 0 0 
#4: 0 0 
#5: 0 0 
#6: 0 0 
#7: 0 0 
#8: 0 0 
#9: 0 0 
#10:0 0 

Answer 2

Per espandere il mio commento, mi piacerebbe fare qualcosa di simile:

for (j in names(tmp)) { 
    col = tmp[[j]] 
    min_2 = sort.int(unique(col), partial=2L)[2L] # 2nd lowest value 
    set(tmp, i = which(col > min_2), j = j, value = 0L) 
} 

Questo loop su tutte le colonne in tmp, e ottiene il 2 ° valore minimo per ogni colonna utilizzando sort.int con argomento partial, che è leggermente più efficiente rispetto all'utilizzo di sort (in quanto non è necessario ordinare l'intero set di dati per trovare il 2 ° valore minimo).

Poi usiamo set() per sostituire le righe in cui il valore della colonna è maggiore del valore minimo di 2 °, per che colonna, con il valore 0.