r - 从 ggplot 条形图中排除零值？

Question

有谁知道是否可以从 ggplot 中的条形图中排除零值？

我有一个包含如下比例的数据集：

 X5employf       prop X5employff
1   increase 0.02272727           
2   increase 0.59090909          1
3   increase 0.02272727   1  and 8
4   increase 0.02272727          2
5   increase 0.34090909          3
6   increase 0.00000000          4
7   increase 0.00000000          5
8   increase 0.00000000          6
9   increase 0.00000000    6 and 7
10  increase 0.00000000   6 and 7 
11  increase 0.00000000          7
12  increase 0.00000000          8
13  decrease 0.00000000           
14  decrease 0.00000000          1
15  decrease 0.00000000   1  and 8
16  decrease 0.00000000          2
17  decrease 0.00000000          3
18  decrease 0.10000000          4
19  decrease 0.50000000          5
20  decrease 0.20000000          6
21  decrease 0.00000000    6 and 7
22  decrease 0.00000000   6 and 7 
23  decrease 0.10000000          7
24  decrease 0.10000000          8
25      same 0.00000000           
26      same 0.00000000          1
27      same 0.00000000   1  and 8
28      same 0.00000000          2
29      same 0.00000000          3
30      same 0.21052632          4
31      same 0.31578947          5
32      same 0.26315789          6
33      same 0.15789474    6 and 7
34      same 0.00000000   6 and 7 
35      same 0.05263158          7
36      same 0.00000000          8

正如您在“prop”列中看到的那样，有很多零值。我正在制作一个以“X5employf”列作为分面的分面条形图。但是由于零值，我最终在我的地块上有很多空白空间（见下文）。有没有办法强制 ggplot 不绘制零值？它不是丢弃未使用因子的情况，因为这些不是 NA 值而是 0。有任何想法吗？？！

Answer 1

对于您的绘图，只需使用which来指定您只想使用包含非零比例的数据框子集。这样您就不必修改原始数据框。scales然后，在您的参数中指定“free_x”，facet_grid以消除多面图中的空白空间。

plot <- ggplot(df[which(df$prop>0),], aes(X5employff, prop)) +
  geom_bar(aes(fill=X5employff, stat="identity")) +
  facet_grid( ~ X5employf, scales="free_x") +
  theme_bw()
plot

请注意，为了从 Excel 快速导入 R，我将空白字段替换为“空白”。

Answer 2

我不确定是否有办法在ggplot. 但是，您可以考虑简单地将 0 重新编码为 NA：

df[df$prop == 0] <- NA