条件が与えられたdata.table内のすべての値を置き換えます。

Question

条件付きでdata.table内のすべての値をどのように置き換えますか？

私は

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

のようなものを試してみたが、それは動作しません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 

により、すべての "6" に置換する例

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 

については

、はるかに広いテーブルを生成します。

Answer 1

ネイティブdata.tableの方法は、次のようになります。

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 

このアプローチ - おそらくもっと冗長ではあるが、それでもよりもはるかに高速になるだろうは、すべての列のコピーを避けるためです。

Answer 2

も簡単：

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 

重要なのは、これはそのクラスを変更しません。これを行うには

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