更改绘图大小时，ggplot2中的列会产生奇怪的变形

Question

看，我将放置2张相同地块的图像，唯一要做的就是更改其大小，将地块的大小扩展到相应的大小，然后再将其保存为图像。但是代码在两个图中都是相同的。我该如何避免这种情况发生？

在这里我附上了一个大小不同的同一个图，看看改变了多少列，现在有一个新的列，其最大比重为15，而这不是在!!!：

我在这里附上我的代码：

plot<-ggplot(DT,aes(x=Date,y=n_per_week,fill=var2))+
  geom_bar(stat="identity", size= 4)+
  theme(plot.title = element_text(hjust = 0.5))+
  ylab("N")+xlab("Date (Month-Year)")+
  scale_x_date(date_labels = "%m-%y")+
  theme_minimal(base_size = 11, base_family = "")

我怎样才能使这种改变不发生呢！！

谢谢！