R中的时间和日期问题

Question

我有一组带有日期和时间的数据。我想在y轴上绘制时间，在x轴上绘制日期，并绘制每天在给定时间的观测次数。但是，我的观察从第一天的20.00开始，到第二天的06.00结束。因此，当我绘制此图时，R绘制每个日期的所有观测值：

Here is a link to a picture of my current graph: 有谁知道如何定义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())