Мне нужно подгруппировать данные по дате, чтобы показывать только первый квартал года

Question

Я пытаюсь разместить данные по дате, чтобы получить результаты только за первый квартал года.

# Мой фрейм данных

        > ewport[c(1:3,nrow(ewport)),]
               date   AMZN    IBM
       1   2012-12-31 1.0232 1.0091
       2   2013-01-02 1.0257 1.0251
       3   2013-01-03 1.0045 0.9945
       253 2013-12-31 1.0138 1.0062

Попытка поднабора по дате

     ew.q1 <- subset(ewport,
       +                 ewport$date >= as.Date("2012-12-31") & 
       +                   ewport$date <= as.Date("2012-03-31"))
             > ew.q1[c(1:3,nrow(ew.q1)),]
                    date AMZN IBM
               NA   <NA>   NA  NA
               NA.1 <NA>   NA  NA
               NA.2 <NA>   NA  NA