Как добавить точку к сюжету freqpoly?

Question

Я рисую частотный график с помощью geom_freqpoly:

ggplot(all,aes(x=time,color=type))
+geom_freqpoly(size=1.3,binwidth=2160) 
+theme_bw()+scale_x_datetime(breaks = date_breaks("2 hours"), labels=date_format("%H:%M"))

Я хочу добавить точку к сюжету, например:

Как это сделать? Большое спасибо.