Bar chart 创建带有百分比和计数标签的分组条形图

我想为以下数据创建一个带有百分比的分组条形图，而不是计数/绝对数

df <- structure(list(Race = c("Caucasian/White", "African American", 
                                          "Asian", "Other"), `Clinic A` = c(374, 820, 31, 108), `Clinic B` = c(291, 
                                                                                                               311, 5, 15), `Clinic C` = c(330, 206, 6, 5), `Clinic D` = c(950,341, 6, 13)), class = "data.frame", row.names = c(NA, -4L))
    
df_new <- df %>% pivot_longer(!Race, names_to = "clinics", values_to = "numbers")

ggplot(data=df_new, aes(x=clinics, y=numbers, fill=Race)) +
  geom_bar(stat="identity", position=position_dodge())+
  geom_text(aes(label=numbers), vjust=1.6, color="white",
            position = position_dodge(0.9), size=3.5)+
  scale_fill_brewer(palette="Paired")+
  theme_minimal()