R 如何克服图形中条形图标签的重叠

我正在尝试使用ggplot2。我面临的问题是，图中每两个条的条标签都是上下的。我想成为每个标签上自己的酒吧。我希望你能帮助我解决这个问题

另外，我想知道是否有可能在每个条的标签上添加“k$”。我想知道是否有可能将指标（实际和预算）放在图表的顶部

这是我的代码：

library (ggplot2)

library(plotly)

library(readxl)

library(tidyverse)

df =read_excel("C:/Fall 2020 - Clarkson University/Information Visualization/Assignments/Assignment2/a2-DeptYearlyPerf.xls")

df2= df %>% pivot_longer(-Dept.,names_to="category", values_to="amount")

df3=df2 %>% separate(category,into=c("qtr","bud_or_act"),sep=" ")

df3 %>% ggplot(aes(x=qtr,y= amount,fill=bud_or_act, label= amount, width=.7)) +
  
  geom_col(position="dodge") +facet_wrap(~Dept.) +
  
  geom_text(size=3, position = position_stack(vjust = 0.5)) 

---

我没有您的数据，因此我无法帮助您编写代码，但是您可能会发现代码很有用

或者您可以尝试：

df2= Book1 %>% pivot_longer(-Dept,names_to="category", values_to="amount")

df3=df2 %>% separate(category,into=c("qtr","bud_or_act"),sep=" ")

df3 %>% ggplot(aes(x=qtr,y= amount,fill=qtr, label= amount, width=.7)) +
  
geom_bar(stat='identity',position="dodge") +facet_wrap(~Dept) +
  
geom_text(size=3,hjust = 0.5)

使用假设数字在我的计算机上的结果：

---

数据和图表已附在我的问题上，因为我最初看不到图表，所以刚做了一些更改。图表上的每两个栏的标签都上下浮动。我想成为每个标签上自己的酒吧。如果您愿意，我可以更新我的问题并将图表发送给您。您可以尝试与hjust参数对齐吗？我会更新问题，以便您可以看到我得到的图表