Make the plot nicer

Question

I have this plot:

from this code:

#Code
ggplot(data2,aes(x=prdate,y=count,group=1))+
  geom_line()+
  geom_segment(aes(x=prdate, xend=prdate,y=