调整标题及；在R中Figsize

对于这个问题，我只需要使用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,1),
        panel.border = element_rect(fill = NA)) 

此外，我还遇到了重塑情节的问题。我希望地块的高度要小得多，但宽度相同。每当我自己尝试的时候，我都可以裁剪出情节，但最大的一部分也被裁剪掉了

---

有人能帮我吗？

图像只是一个插图，不是我的绘图。请添加一个可复制的示例