在Rbase中用NA替换数据框中的字符[重复]

Question

我有一个像这样的数据框：

       Domain         Phylum          Class          Order
ID_1 Bacteria  Cyanobacteria Unclassified_c Unclassified_o
ID_2 Bacteria  Cyanobacteria Unclassified_c Unclassified_o
ID_3 Bacteria  Bacteroidetes Unclassified_c Unclassified_o
ID_4 Bacteria Proteobacteria Unclassified_c Unclassified_o
ID_5 Bacteria  Bacteroidetes Unclassified_c Unclassified_o

我想将所有字符 Unclassified_c、Unclassified_o、elment_3 等替换为 NA，所以我尝试了：

df[df == "Unclassified_c" ] <- NA

如果我使用一个一个值，这会很好，但有时可能会很多；所以我想尝试一些模式列表，然后使用它，比如：

Remove_list <- ("Unclassified_c", "Unclassified_o", "element_3", "element_4", "element_x") 

然后用列表替换为NA：

df[ df == Remove_list ] <- NA 

它会更改为 NA 一些值，但不是全部。我不想使用 stringr 库，因为它消除了行名（ID_1 .. ID_x）并且我需要它，所以我想尝试 Rbase，任何建议

非常感谢！！！！

Answer 1

我们可以将sapply 与%in% 一起使用，它返回一个值是否存在于Remove_list 中的逻辑矩阵。我们可以为TRUE 值分配NA。

df[sapply(df, `%in%`, Remove_list)] <- NA

df
#       Domain         Phylum Class Order
#ID_1 Bacteria  Cyanobacteria  <NA>  <NA>
#ID_2 Bacteria  Cyanobacteria  <NA>  <NA>
#ID_3 Bacteria  Bacteroidetes  <NA>  <NA>
#ID_4 Bacteria Proteobacteria  <NA>  <NA>
#ID_5 Bacteria  Bacteroidetes  <NA>  <NA>