Ось 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.

Любые комментарии или предложения полезны. Спасибо.