Время и дата выпусков в R

Question

У меня есть набор данных с датой и временем. Я хочу нанести на график время по оси Y и дату по оси X, а также график количества наблюдений в данное время в течение каждого дня. Однако мои наблюдения начинаются около 20.00 первого дня и заканчиваются около 06.00 следующего дня. Итак, когда я строю график, R отображает все наблюдения на каждую дату:

Вот ссылка на изображение моего текущего графика: Кто-нибудь знает, как определить ось Y, чтобы начать в одну дату и закончить в следующую дату?

Вот мой сценарий:

library(ggplot2)
library(scales)
library(dplyr)
library(lubridate)

test$DATE <- as.Date(test$DATE, format = "%d.%m.%Y", tz = "UTC")
test$hms <- format(test$TIME, format = "%H:%M:%S")
test$hms <- as.POSIXct(test$hms, format = "%H:%M:%S")

ggplot(test, aes(test$DATE,test$hms)) + 
geom_point() +
geom_smooth() + 
theme_light() + theme(legend.position="top") +
scale_color_brewer(palette = 1, type = "qual") +
ggtitle("emergence/return time") +
scale_x_date("d",date_breaks="7 days",date_labels="%d-%m")+
scale_y_datetime("Time",breaks=date_breaks("60 min"),labels = 
date_format("%H:%M"))

g <- ggplot(test, aes(test$DATE,test$hms)) + 
geom_point() +
geom_smooth() + 
theme_light() + theme(legend.position="top") +
scale_color_brewer(palette = 1, type = "qual") +
ggtitle("emergence/return time") +
scale_x_date("d",date_breaks="7 days",date_labels="%d-%m")+
scale_y_datetime("Time",breaks=date_breaks("60 min"),labels = 
date_format("%H:%M"))

g + scale_colour_grey()+theme(
panel.grid.major.y = element_blank(),
panel.grid.minor.y = element_blank(),panel.grid.major.x = element_blank(),
panel.grid.minor.x = element_blank())