将注释添加到ggplot会显示错误无效的输入

Question

我试图显示从早上6点到下午6点开始的一天记录的折线图。现在，当我尝试使用ggplot填充图表并添加注释以在图表下方显示某些文本或在图表中显示错误时

Error: Invalid input: time_trans works with objects of class POSIXct only

这是我的示例代码，用于绘制

library(ggplot2)  #load ggplot
R$date_time<-strptime(x = as.character(R$stc),format = "%d/%m/%Y %H:%M")
R$Req_Date<-as.Date(R$date_time)
R_Day<-R[R$Req_Date=='0015-11-01',]
timerange=as.POSIXct(R_Day$date_time, format="%H:%M:%S")
counTime<-as.data.frame(table(timerange))
calcitime<-sum(counTime$Freq)/60
p<-ggplot(data=R_Day,aes(x=timerange,y=Rinse_Temperature))+
ggtitle("R_Temperature")+geom_line(colour="orange",size=0.5)+
p+annotate("text", x=as.numeric(as.POSIXct(R_Day$date_time, format="%H:%M:%S")),xend=as.numeric(as.POSIXct(R_Day$date_time, format="%H:%M:%S")), y=-300,yend=300, label= "Total")

任何建议如何覆盖此错误并显示文字。

提前致谢