对于此问题，我仅需要使用ggplot2和ggplot2。我有一个类似于以下的流程图：

我想在左上角插入一个标题，但是它总是以错误的位置结尾。

  geom_text(stat='count',aes(label = ..count..),vjust = -1) +
  theme(panel.background = element_blank(),axis.text.y = element_blank(),axis.title.y = element_text(),axis.ticks.y = element_blank(),axis.title.x = element_blank(),plot.margin = margin(1,1,1),panel.border = element_rect(fill = NA)) 

此外，我遇到了重塑情节的问题。我希望绘图的高度小得多，但宽度相同。每当我自己尝试时，我都可以裁剪图，但是最大的条形图的一部分也会被裁剪。

有人可以帮助我吗？