如何基于一列删除数据框中的有效行和重复行？

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

该怎么做？ 预先感谢！