如何增加ggplot的大小-挤压水平条形图

我试图在GGPlot的水平条形图中针对美国各州绘制一些值。

代码是：

g <- df %>% 
  select(Sample.Measurement, State.Name) %>% 
  group_by(State.Name) %>% 
  count() %>% 
  arrange(n) %>% 
  ggplot(., mapping = aes(x=reorder(State.Name, n), y =n))+
  geom_bar(stat = "identity", width=.8, position = position_dodge(width = .25))+
  labs(
    title = "",
    y= "Frequency"
  )+
  coord_flip()

g+theme(axis.text=element_text(size=20),
        axis.title=element_text(size=30,face="bold"))

主题元素是为了更改文本大小。

我真正想做的是扩展图表的深度，以便各个州拥有更多空间。我怎么做？