如何在R中的堆叠条形图中添加数据标签

Question

我正在尝试创建一个堆叠的条形图，显示n TenYearCHD和prevalentHyp之间的比例差异。由于差异很小，我尝试添加显示数字的数据标签，这样会更加清晰。有人知道如何在我的R脚本中添加数据标签吗？

data_no_na %>% select(prevalentHyp, TenYearCHD) %>% filter(TenYearCHD == "Yes" ) %>% 
  ggplot() + 
  geom_bar(position='Fill', aes(x = TenYearCHD, fill=factor(prevalentHyp))) + 
  labs(x= "TenYearCHD", y = "Proportion", title = "prevalentHyp and TenYearCHD", fill="prevalentHyp")