R用日期格式化X轴（较大数据集的子集）

Question

R的新手，但是我试图得到两个简单的x，y（日期，值）图。我尝试绘制的一组值是更大的一组相似值的子集。该图实质上代表了整个集合，而不是x轴上的子集。这就是我所拥有的：

mydata <- read.csv("~/Downloads/AUESA.csv") # columns: DATE, AUESA


aft <- mydata[as.Date(mydata$DATE) > as.Date('2016-11-01'), ]

bef <- mydata[as.Date(mydata$DATE) < as.Date('2016-11-01') & as.Date(mydata$DATE) >= as.Date('2015-05-01'), ]

par(mfrow=c(1,2)) 

plot(x = aft$DATE, y = aft$AUESA, type = 'l')

plot(x = bef$DATE, y = bef$AUESA, type = 'l')

如您所见，x轴限制已关闭

我尝试过：

plot(x = aft$DATE, y = aft$AUESA, type = 'l', xlim = as.Date(c('2016-11-01', '2018-05-01')))

plot(x = bef$DATE, y = bef$AUESA, type = 'l', xlim = as.Date(c('2015-05-01', '2016-11-01')))

但是它只是用正确的x轴限制绘制一个空图。

任何评论或建议都是有帮助的。谢谢。