ggplot R堆叠条形图上的中心标签

Question

这很简单，但在我读过的其他帖子中似乎很复杂。与该问题有关的帖子已经很老了，所以想知道现在是否有更有效的方法可以解决这个问题。

我已经在R中使用ggplot创建了一个简单的堆积条形图。但是我不知道如何正确放置标签。这是我玩了一段时间后当前所拥有的。

cplot$label = paste0(cplot$percentage*100, "%")
cplot
ggplot(cplot, aes(y=percentage, x=Diagnosis,fill=DrugCode)) + 
    geom_bar(position="fill", stat="identity",color="black") +
   geom_text(aes(label = label,y=percentage),size=3.5,position=position_stack(vjust=2))

也不能进行调整，如何将标签放置在应该放置的位置？