R - GGPLOT2: prettier layout

Question

From this code:

  ggplot(data2,aes(x=prdate,y=count,group=1))+
  geom_line(size=0.5)+
  geom_point(size=1.5)+
  geom_segment(aes(x=prdate, xend=prdate,y=0, ye