如何使用R将时间转换为类别

Question

我希望创建一个功能，将当天的时间转换为类别。理想情况下，我想创建3类“早晨”，“下午”和“夜晚”。我想创建函数，以便它与lubridate :: now（）一起使用。到目前为止，我已经尝试了这些不同的代码，但没有一个有效。非常感谢帮助：

daytime <- function(x) if (x>hm(05:00) || x<hm(12:00)){message("goodmorning")}
ifelse (x>hm(12:00) || x<hm(18:00)) {message("good afternoon")}
ifelse (x>hm(18:00)) {message("good evening")} 

daytime2 <- function(x) {dates <- as.POSIXlt(as.numeric(x) / 1000, origin = "1970-01-01")
mutate(hour = cut(as.numeric(format(date, "%H")),
                breaks = c(05, 12, 18, 24),
                labels = c("good morning", "good afternoon", "good evening")))}

帮助。