从ggplot2中的条形图中删除小计数条

Question

我想从一个有很多关卡的因素制作条形图。我想排除只有少数事件发生的因素。我可以通过创建一个新的数据框来实现这一点，但有没有办法让ggplot2在内部完成它？

我尝试过使用限制，..计数..等等。

以下是一个例子：

#### This has four levels but I would like to remove bins with only one observation ###
df<-data.frame(x=as.factor(c(rep("a",4),rep("b",5),rep("c",2), rep("d",1))))
p<-ggplot(df)+geom_bar(aes(x))

###### This gives the correct thing, but I had to make a new data frame ######
new.df<-subset(df, x%in%levels(df$x)[table(df$x)>1])
p<-ggplot(new.df)+geom_bar(aes(x))