R 如何修复打印标签在分组打印中显示在一个条形图上方的问题？

我在ggplot中做了一个分组条形图，我想用系统的数量来标记每个条形图。标签显示出来，但它们都出现在组中的中间栏上，即报告系统B。如何编辑geom_文本以使标签显示在相应的栏上

data1 <- data.frame(office = c("HR","HR","HR","Comms","Comms","Comms","Legal","Legal","Legal","Accounting","Accounting","Accounting","Admin","Admin","Admin","Policy","Policy","Policy","Research","Research","Research"), reporting_systems = c("A","B","C","A","B","C","A","B","C","A","B","C","A","B","C","A","B","C","A","B","C"), number_of_systems = c(27,0,0,12,1,4,15,2,15,29,0,0,2,0,0,59,28,46,0,0,0))

reporting_order <- factor(data$reporting_systems, level = c("A","B","C"))

ggplot(data = data1, aes(x = office, y = number_of_systems, fill = reporting_order)) + 
  geom_bar(stat = "identity", position = position_dodge()) +
  xlab("") +
  ylab("Number of Projects") +
  ggtitle("") +
  geom_text(aes(label = number_of_systems, fill = reporting_order), vjust = -0.3, color = "black", size = 4) +
  theme(axis.line = element_line(color = "black"), 
        axis.text = element_text(color = "black", size = 15),
        axis.text.x = element_text(angle = 35, hjust = 1),
        axis.text.y = element_text(angle = 0, hjust = 1), axis.title.y = (element_text(size = 15)),
        panel.grid.minor = element_blank(), panel.grid.major = element_blank(),
        panel.border = element_rect(color = "black", fill = NA, size = 0.5),
        panel.background = element_rect(fill = NA), text = element_text(size = 15))

---

data1有一个非常类似的问题

答案是在geom_文本中添加一个位置参数：

ggplot(data = data1, aes(x = office, y = number_of_systems, fill = reporting_order)) + 
  geom_bar(stat = "identity", position = position_dodge()) +
  xlab("") +
  ylab("Number of Projects") +
  ggtitle("") +
  geom_text(position = position_dodge(width=0.9), aes(label = number_of_systems, fill = reporting_order), vjust = -0.3, color = "black", size = 4) +
  theme(axis.line = element_line(color = "black"), 
        axis.text = element_text(color = "black", size = 15),
        axis.text.x = element_text(angle = 35, hjust = 1),
        axis.text.y = element_text(angle = 0, hjust = 1), axis.title.y = (element_text(size = 15)),
        panel.grid.minor = element_blank(), panel.grid.major = element_blank(),
        panel.border = element_rect(color = "black", fill = NA, size = 0.5),
        panel.background = element_rect(fill = NA), text = element_text(size = 15))