Adjusting Title & Figsize in R

For this problem I am required to use ggplot2 and ggplot2 only. I have a barplot similar to the one below:

I would like to insert a title on the upper left corner but somehow it keeps ending up in the wrong place.

  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)) 

Furthermore I run into the problem of reshaping the plot. I would like the height of the plot to be much smaller but have the same width. Whenever I try it myself i can crop the plot but parts of the biggest bar are being cropped of aswell.

Can anyone help me?