Ersetzen Sie alle Werte in einer data.table bei einer Bedingung

Question

Wie würden Sie bei einer Bedingung alle Werte in einer data.table ersetzen?

Zum Beispiel

ppp <- data.table(A=1:6,B=6:1,C=1:6,D=3:8) 

A B C D 
1 6 1 3 
2 5 2 4 
3 4 3 5 
4 3 4 6 
5 2 5 7 
6 1 6 8 

Ich möchte alle "6" von NA

A B C D 
1 NA 1 3 
2 5 2 4 
3 4 3 5 
4 3 4 NA 
5 2 5 7 
NA 1 6 8 

ersetzen Ich habe versucht, so etwas wie

ppp[,ifelse(.SD==6,NA,.SD)] 

aber es funktioniert nicht, es produziert einen viel breiteren Tisch.

Answer 1

gebürtige data.table Weg, dies zu tun wäre:

for(col in names(ppp)) set(ppp, i=which(ppp[[col]]==6), j=col, value=NA) 
# Test 
> ppp 
    A B C D 
1: 1 NA 1 3 
2: 2 5 2 4 
3: 3 4 3 5 
4: 4 3 4 NA 
5: 5 2 5 7 
6: NA 1 NA 8 

Dieser Ansatz - obwohl vielleicht ausführlicher - wird jedoch deutlich schneller sein als ppp[ppp == 6] <- NA, weil es das Kopieren aller Spalten vermeidet.

Answer 2

Noch einfacher:

ppp[ppp == 6] <- NA 

ppp 
    A B C D 
1: 1 NA 1 3 
2: 2 5 2 4 
3: 3 4 3 5 
4: 4 3 4 NA 
5: 5 2 5 7 
6: NA 1 NA 8 

Wichtig ist, dass sich das nicht ändert seine Klasse:

is.data.table(ppp) 
[1] TRUE