Как создать функцию, которая может выбирать определенные месяцы из набора данных (например, с апреля по сентябрь)

Question

У меня есть эта функция, которая может просматривать мои данные и назначать время дня (я не писал этот код и не очень понимаю его, но, похоже, он работает). Можно ли изменить этот код, чтобы он мог выбирать данные за заданные месяцы года (например, с апреля по сентябрь)? (Столбец «datetime» - это «POSIXct» «POSIXt»)

nightday <- function(datetime) {
  paste(
    c("Night", "Morning", "Afternoon", "Evening", "Night")[
      cut(as.numeric(format(datetime, "%H%M")), c(0, 530, 1100, 1700 ,2000, 2359))
      ]
  )
}