创建子集，同时删除NA

Question

我想创建带有某个类别子集的条形图，并同时删除R中的NA。

此脚本有效：

const util = require('util');
const fs = require('fs');

const readFile = util.promisify(fs.readFile);
readFile(...).then(...);

这也起作用：

ggplot(data = subset(data, !is.na(test)), 
       aes(factor(geb_nat), y = ..prop.., group = 1)) + 
  geom_bar() + 
  geom_text(stat = "count", 
            aes(label = scales::percent(..prop..), y = ..prop.. + 0.02))

但是，当我要删除NA和带有“ nat”的行时，它将仅删除其中之一。

我尝试过：

ggplot(data = subset(data, geb_nat != "nat"), 
       aes(factor(test), y = ..prop.., group = 1)) +
  geom_bar() +
  geom_text(stat = "count", 
            aes(label = scales::percent(..prop..), y = ..prop.. + 0.02)) 

但是我只得到带有“ nat”的子集，而NA仍然存在。