r - 如何根据一列删除数据框中的有效行和重复行？

Question

set.seed(123)
df <- data.frame(
    x = sample(0:2, 10, replace = T),
    y = sample(0:2, 10, replace = T)
)
df[df==2] <- NA

df=df[!duplicated(df$y),]
print(df)

上述脚本的输出为：

  x  y
1  0 NA
2 NA  1
5 NA  0

我想保留所有NA，只比较有效值。
预期结果是：

    x  y
1   0 NA
2  NA  1
3   1 NA
5  NA  0
6   0 NA
10  1 NA

怎么做？提前致谢！

标签： r