在带有ggplot的分组条形图中获取计数而不是百分比

Question

我找到了一个用ggplot制作成组的条形图的脚本。 但是我希望它用计数而不是百分比来标记每个条。

我正在使用此代码：

ggplot(data = subset(data, geb_nat!="nat" & !is.na(geb_use)), 
       aes(x = geb_typ, group = geb_use)) + 
  geom_bar(aes(y = ..prop.., fill = factor(..x..)), stat = "count") +
  geom_text(aes(label = scales::percent(..prop..), y = ..prop.. ),             
            stat = "count", vjust = -.5) +
  labs(y = "Percent", fill="geb_typ") +
  facet_grid(~geb_use) +
  scale_y_continuous(labels = scales::percent)

这是结果：

我想在条形图上显示实际计数，而不是百分比