Вам нужно получить вектор со значением месяца. Вот пример, если предположить, что ваши данные находятся в векторе, как я:
date = c("2020-01-28","2020-01-29","2020-01-30","2020-01-31","2020-02-01","2020-02-02")
library(lubridate)
month(date) # get the month value only
# [1] 1 1 1 1 2 2
january <- date[month(date)==1] # extract only the date which are in the 1st month
january
# [1] "2020-01-28" "2020-01-29" "2020-01-30" "2020-01-31"