从 ggplot 条形图中删除未使用的因子水平

Question

我想做与this question相反的事情，和this question做相反的事情，虽然那是关于传说，而不是情节本身。

其他 SO 问题似乎是在询问如何保持未使用的因子水平。我实际上希望我的删除。我有几个名称变量和几个变量属性列（宽格式），用于创建大量条形图。这是一个可重现的示例：

library(ggplot2)
df <- data.frame(name=c("A","B","C"), var1=c(1,NA,2),var2=c(3,4,5))
ggplot(df, aes(x=name,y=var1)) + geom_bar()

我明白了：

我只希望在我的条形图中显示具有相应 var_n 的名称（例如，B 不会有空白区域）。

如果我可以简单地更改我的输出文件名和y=var 位，重用基本绘图代码将非常容易。如果可能的话，我不想仅仅为了在每个绘图的结果上使用 droplevels 而对我的数据框进行子集化！

---

根据na.omit() 建议更新

考虑修改后的数据集：

library(ggplot2)
df <- data.frame(name=c("A","B","C"), var1=c(1,NA,2),var2=c(3,4,5), var3=c(NA,6,7))
ggplot(df, aes(x=name,y=var1)) + geom_bar()

我需要使用 na.omit() 来绘制 var1 因为存在 NA。但由于 na.omit 确保 所有列 都存在值，因此该图也会删除 A，因为它在 var3 中有一个 NA。这更类似于我的数据。我总共有 15 条回复，其中充斥着 NA。我只想删除没有为 current 绘制的 y 向量值的因子水平，而不是在整个数据帧中的 any 向量中具有 NA。

Answer 1

一个简单的选择是在您的数据框df 上使用na.omit() 来删除带有NA 的那些行

ggplot(na.omit(df), aes(x=name,y=var1)) + geom_bar()

鉴于您的更新，以下

ggplot(df[!is.na(df$var1), ], aes(x=name,y=var1)) + geom_bar()

工作正常，只考虑Var1 中的NA。鉴于您只绘制name 和Var，请将na.omit() 应用于仅包含这些变量的数据框

ggplot(na.omit(df[, c("name", "var1")]), aes(x=name,y=var1)) + geom_bar()

Answer 2

请注意，在绘图时，您仅使用数据框的两列，这意味着您可以使用相关列 x[,c("name", "var1")] 应用 na.omit 来删除不需要的行，而不是传递整个 data.frame （正如 Gavin Simpson 建议的那样）na.omit(x[,c("name", "var1")])，然后绘制此数据。

我的 R/ggplot 很生锈，我意识到可能有更清洁的方法来实现这一点。

Answer 3

自从最初提出这个问题以来已经过去了很长时间。如果我在 2021 年处理这个问题，我会使用类似的东西：

library(ggplot2)
library(tidyr)
df <- data.frame(name=c("A","B","C"), var1=c(1,NA,2),var2=c(3,4,5))

df %>% 
  drop_na(var1) %>% 
  ggplot(aes(name, var1)) +
  geom_col()

^{由reprex package (v2.0.1) 于 2021-12-03 创建}