R - 行のすべての重複を見つけ、私は大規模なデータフレームを持ち、行の重複要素を検索し、空の文字列で、すべての重複値を置換しようとしています

Question

を置き換える：

X1 X2 X3 X4 X5 
x 1 2 3 3 4 
y 1 1 2 3 4 

が

になるべき

X1 X2 X3 X4 X5 
x 1 2  4 
y  2 3 4 

私は、単一のベクター上でこれを実行することができるよ：

x <- c(1,2,3,3,4) 
x[x %in% x[duplicated(x) == TRUE]] = "" 
x 

[1] "1" "2" "" "" "4" 

しかし、私はWORにこれを取得することができませんkをデータフレーム内のすべての行に適用します。 私は次のことを試してみたが、それは仕事を得ることができませんでした：

apply(df,2,function(x) x[x %in% x[duplicated(x) == TRUE]] = "") 

任意のアイデア？

Answer 1

あなたはこれを試すことができます：あなたは、各列の整数型を保持する場合

as.data.frame(t(apply(df, 1, function(x) {x[x==x[duplicated(x)]] <- ''; x}))) 

が

X1 X2 X3 X4 X5 
x 1 2  4 
y  2 3 4 

を取得するには、この方法を試してください。

as.data.frame(t(apply(df, 1, function(x) {x[x==x[duplicated(x)]] <- NA; x}))) 

が

を取得します

X1 X2 X3 X4 X5 
x 1 2 NA NA 4 
y NA NA 2 3 4 

Answer 2

何かこのように、

データフレームに重複しているインデックスを見つけて空白スペースで置き換える。

df[which(t(apply(df,1,function(x) 
    duplicated(x) | duplicated(x, fromLast = T))), arr.ind = T)] <- "" 

df 
# X1 X2 X3 X4 X5 
#x 1 2  4 
#y  2 3 4