Как исключить одно категориальное значение в переносе фасетов ggplot r

Question

Я получил несколько гистограмм, используя facet_wrap, но у меня все еще есть данные 'NA' в категориальной переменной для фасетирования. Затем я изменил NA на 0, думая, что он больше не будет отображаться на графике. Тем не менее, 0 - это другое значение, например NA.

Это код

ggplot(dftrai,aes(`12 Income`,fill=`13e Toilet type`,color=`13e Toilet type`))+
  geom_histogram(alpha=(0.3))+#psition = identity as overlapping histogram
  theme(legend.position = "top")+
  scale_fill_manual(values=c("#999999", "#E69F00", "#56B4E9","#FA3910"))+
  scale_color_manual(values=c("#999999", "#E69F00", "#56B4E9","#FA3910"))+
  facet_wrap(~`13e Toilet type`,ncol = 3)

И это результат построения, который я хочу избавить от графика '0' там ggplot

Answer 1

Один из вариантов - фильтровать Тип туалета , не равный нулю, перед отправкой в ​​ggplot:

library(dplyr)
dftrai %>% 
filter(`13e Toilet type`!="0") %>%  # Filter step here
ggplot(aes(`12 Income`,fill=`13e Toilet type`,color=`13e Toilet type`))+
  geom_histogram(alpha=(0.3))+#psition = identity as overlapping histogram
  theme(legend.position = "top")+
  scale_fill_manual(values=c("#999999", "#E69F00", "#56B4E9","#FA3910"))+
  scale_color_manual(values=c("#999999", "#E69F00", "#56B4E9","#FA3910"))+
  facet_wrap(~`13e Toilet type`,ncol = 3)