由于缺少数据，ggplot2使用free_x会导致错误的图形

Question

我的数据框包含多年来股票的信息。

    Date          Adj.Close YEAR
 1 2014-01-21     32.63     2014
 2 2014-01-17     33.40     2014
 3 2014-01-16     32.00     2014
 4 2014-01-15     32.22     2014
 5 2014-01-14     31.10     2014
 6 2014-01-13     30.87     2014

在我的ggplot2 facet_wrap中，我必须添加scales =“free_x”以显示一年的完整视图，问题是2014年还没有结束（至少在撰写此问题时）和数据在2014年1月1日至2014年1月22日之间。图表被拉伸（显然是因为free_x），我想知道如何避免这种情况？我怎样才能在其他年份只显示Jan的正确部分？我可以在第一年（从1993年3月开始）提出相同的论点。

ggplot(stock.data, aes(x=Date, y=Adj.Close)) + 
  geom_line(data=stock.data, aes(x=Date, y=Adj.Close), colour = "blue") + 
  facet_wrap(~ YEAR, ncol=4, scales="free_x")