ggplot2 分组柱形图 加数字标签

#构建数据
data <- data.frame(
  ID = c("ID1","ID2"),
  A = c(0.2, 0.4),         
                             B = c(0.3, 0.1),
                             C = c(0.7, 0.1),
                             D = c(0.1, 0.2),
                             E = c(0.3, 0.3))   
rownames(data) <- c("Group 1", "Group 2")

data

library(tidyverse)

d1 = data %>% pivot_longer(2:6,names_to = "Cul",values_to = "yield")
d1

d1 %>% ggplot(aes(x = Cul, y = yield, fill = ID)) + 
  geom_bar(stat = "identity",position = position_dodge(), width=0.5, linewidth = 0.25) +
  geom_text(aes(label = yield),vjust = 0.3, size = 3.5, colour = "black")