r - 更改ggplot中图的大小（宽度）

我是一个新手，尝试更改ggplot的宽度，以便可以在同一图中排列不同的图（热图和点图）。但是，经过数小时的尝试来减小点图的宽度之后，我将放弃。

热图代码（可能不相关）：

heatmap_GO_NES_1<-ggplot(data=long_frame_GO_NES_1) +
  geom_tile(mapping = aes(
    x = factor(timepoint,levels = c("6h","12h","24h")),
    y =bio_process,fill = NES)) +
  ylab(label="Biological process") + 
  theme(axis.title.x=element_blank()) +
  scale_fill_gradient(low="red",high="green")+
  facet_grid( group ~. , scales="free",space="free")+
  theme(axis.text.x = element_text(angle = 90))+
  theme(strip.text.y = element_text(size = 8))

heatmap_GO_NES_1

点图代码：

dot_GO_NES_1<- ggplot(data=long_frame_GO_NES_2)+
  geom_count(mapping=aes(x=timepoint, y =bio_process, size=setsize))+
  theme(axis.title.x=element_blank(), axis.text.x=element_blank(),
    axis.ticks.x=element_blank(),axis.title.y=element_blank(),
    axis.text.y=element_blank(),axis.ticks.y=element_blank())

dot_GO_NES_1

图形代码：

plot_grid(heatmap_GO_NES_1,dot_GO_NES_1)

显然，点图正在窃取所有图形空间，因此我的热图未显示在图形中。