ggplot2-如何向堆叠的百分比条形图添加标签

Question

我很难弄清楚在geom_text中使用什么参数。

我有以下数据框：

head(dataset)
# A tibble: 6 x 2
  diameter trip 
  <fct>    <fct>
1 17.5     0    
2 17.5     1    
3 17.5     0    
4 14.75    0    
5 17.5     1    
6 16       0    

levels(dataset$diameter)
[1] "14.75" "16"    "16.5"  "17.5" 
levels(dataset$trip)
[1] "0" "1"

我调用ggplot，它返回以下图形。

标签前的图像：

dataset %>% 
  ggplot(aes(x = diameter,
             fill = trip)) +
  geom_bar(position = 'fill') +
  ylab("relative frequencies")

我想知道如何添加标签，以显示每个直径内的样品数量，并按行程分开。像这样：

我要构建的图像：

我尝试了很多在Google上找到它的尝试，但没有成功。

我看到一些人将此帖子显示为以下帖子的副本。使用我拥有的代码，有没有办法仅添加geom_text并获得我想要的？问题并不完全相同，因为他的标签值与y轴所示的类型相同，而在我的情况下，y轴仅显示百分比，我希望标签显示计数。

Showing data values on stacked bar chart in ggplot2