ggplot-R-冲积图表-更多条间空间

我用GG创建了这个图表，但是我无法以一种不重叠的正确方式放置标签。有人知道我能做些什么让它变得更好吗？我本来想把栅栏之间的空隙弄宽些，但我没能做到

到目前为止，我做到了：

ggplot(data = alluvialTransposedNA,
       aes(x = x, stratum = stratum, alluvium = id,
           y = Freq, fill = Agency, label = stratum)) +
  scale_x_discrete(expand = c(.1, .1)) + 
  scale_y_continuous(expand = c(.2, .2)) +
  geom_alluvium(aes(fill = Agency), width = 1/6) + 
  geom_stratum(width = 1/3, alpha = 1.5) + +
  geom_label(stat = "stratum", aes(label = after_stat(stratum)),size=2) +
  theme(legend.position = "bottom", 
        axis.text.x = element_text(angle = 45, vjust = 0.75, hjust=1),
        axis.title.x = element_blank(),
        axis.title.y = element_blank(),
        axis.ticks = element_blank(),
        plot.title = element_text(hjust = 0.5)) +
  guides(fill=guide_legend(override.aes = list(color=mycolors[1:2])))+
  ggtitle("Evolution topics during covid-19") 

---

如果使绘图更大或使条形图更窄，则只能使条形图之间的距离更远。将标签旋转90度可能会有所帮助您需要将每个标签限制为一行，还是允许文本换行？标签是否需要保留在矩形内，还是只需要避免相互重叠？它们必须是标签（带气泡）而不是文本（不带气泡）？（可能有一种解决方案是使用ggfittext包，但这取决于这些问题。）只有将绘图变大或变窄，才能将条形图进一步分开。将标签旋转90度可能会有所帮助您需要将每个标签限制为一行，还是允许文本换行？标签是否需要保留在矩形内，还是只需要避免相互重叠？它们必须是标签（带气泡）而不是文本（不带气泡）？（可能有一个使用ggfittext包的解决方案，但这取决于这些问题。）