频率表（修改代码）

Question

我使用以下代码计算频率表，并仅保留百分比值大于0.1的级别。但我仍然希望根据数据集中的所有观察结果显示其百分比。如何修改以下代码以显示基于所有观察的特定级别的百分比。

   library(ggplot2)
    library(rattle)
    library(plyr)
    levels <- names(which(summary(States$region)/sum(summary(States$region)) >0.1))
    table_ <- ggplot(States, aes(region ,fill=region))
    table_ <- table_ + geom_bar() 
    table_ <- table_ + theme(legend.position="none")
    table_ <- table_ + coord_flip()  
    table_ <- table_ + geom_text(aes(y = (..count..),label = ifelse((..count..)==0,"",scales::percent((..count..)/sum(..count..)))), stat="count",colour="black",vjust=1.0,size=4)+
                            scale_x_discrete(limit = levels)