如何用回归线绘制时间（x轴）和y（轴）上其他两列的散点图？

Question

我想使用时间（x轴）的ggplot和y轴上的其他两列在散点图上添加回归线。散点图是正确的，但时间是因子形式，它不形成回归线。请建议如何添加回归线？

我已经添加了geom_smooth，但是在我的代码中不起作用

library(reshape2)
library(ggplot2)

my_data = read.csv(file.choose(),header = TRUE)

df<- data.frame(my_data$Time,my_data$Entry,my_data$Exit)

# order the level of time
df$my_data.Time <- factor(df$my_data.Time, order=TRUE,levels= df$my_data.Time)

mdf <- melt(df,id.vars = 1,measure.vars=c(2,3))

gp <- ggplot(mdf, aes(x=mdf$my_data.Time, y=mdf$value,fill=mdf$variable,colour=mdf$value)) +
  geom_point(aes(colour = mdf$variable),size=2) +
  geom_smooth(formula= y~x) + 
  theme(panel.background=element_rect(fill="white"), 
        panel.grid.major = element_blank(), 
        panel.grid.minor = element_blank())

gp 

我想用回归线绘制散点图，但是geom_smooth不起作用。