在比例条形图中将标签添加到 plot 或百分比到图例 ggplot 2

Question

我有以下 plot 来自 ggplot2

比例癌症条形图：

正如你所看到的，条上的哪些点代表哪种癌症还不是很清楚。 它是使用以下代码创建的：

print(ggplot(data, aes(x = var1)) + 
  geom_bar(aes(fill = var2), position = 'fill', color = "black") +
  labs(title= "Distribution of Cancers", x="groups",y = "Percent", fill = "Cancer"))

var1 只是“c(group1,group2)”的因子向量，而 var2 是他们患有的癌症。 我很抱歉没有提供示例数据，但我不确定如何在不暴露患者信息的情况下重新创建它。

我花了几天的大部分时间试图让一些东西工作。 我还尝试阅读将百分比标签添加到堆叠条形图并使用 ggplot2 和 geom_text 在比例条形图中插入标签

然而，两者都没有帮助我。

我想让 plot 更易于阅读，方法是在 plot 中添加癌症标签，或者在图例中的每个癌症旁边添加两个百分比（也欢迎任何其他建议）。

谢谢

ps 要补充的是，这些组是相当一侧的（5:2），这就是我想使用比例图的原因。

编辑; 制作与我的类似的示例 dataframe，以下代码将起作用

set.seed(12345)
data <- data.frame(var1 = factor(as.character(c(sample(c("Group1","Group2"),size = 500, replace = T)))),
  var2 = factor(as.character(c(sample(c("Bladder", "Bone", "Breast", "Brain", "Colon", "Kidney", "Ovary", "Intestine", "Uterus", "Other"),size = 500, replace=T)))))