r - 使用 NA 在数据帧的行中填充特定的重复值

Question

对于我的数据帧的每一行，我目前正在尝试选择所有等于 4 的重复值，以便将它们“等于”设置为 NA。

我的数据框是这样的:

dat <- read.table(text = "

   1  1  1  2  2  4  4  4  
   1  2  1  1  4  4  4  4", 

header=FALSE)

我需要获得的是:

   1  1  1  2  2  4   NA  NA
   1  2  1  1  4  NA  NA  NA 

我找到了有关如何消除重复行或列的信息，但我真的不知道如何在这里进行.. 非常感谢您的帮助

Answer 1

有时您会希望避免使用 apply，因为它会破坏数据帧对象的多类特性。这是 by 方法:

> do.call(rbind, by(dat, rownames(dat), 
        function(line) {line[ duplicated(unlist(line)) & line==4 ] <- NA; line} ) )
  V1 V2 V3 V4 V5 V6 V7 V8
1  1  1  1  2  2  4 NA NA
2  1  2  1  1  4 NA NA NA