title: Arrow on ggplot2 mid way through path. Making plot look better
body: <p>I am trying to make my graph look as good as possible. I have tried a few things.
  I would like to make the arrow halfway through the lines. And I always see the colours on graphs from ggplot look nicer too but I don't know where to go with it.
  Any changes to the below/advice would be great.
  <a href="https://i.stack.imgur.com/gfPqq.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/gfPqq.png" alt="enter image description here"></a></p>
  
  <pre><code>x&lt;-c(2,3,3,4,4,5,5)
  w&lt;-c(168,108,158,45,114,81,110)
  w&lt;-as.data.frame(w)
  x&lt;-as.data.frame(x)
  
  wts&lt;-data.frame(x,w)
  
  
  h &lt;- ggplot(data=wts, aes(x,w, label="w"))
  h &lt;- h + geom_point(colour="blue")
  h &lt;- h + labs(title="Breaches",x = "Quarter", y= "Number of Breaches")
  h&lt;-h + theme_bw()
  h
  h&lt;-h +
    geom_line(data=wts[c(1,2),], colour="green",arrow=arrow())+
    geom_line(data=wts[c(3,4),], color="green",arrow=arrow())+ 
    geom_line(data=wts[c(5,6),], color="green",arrow=arrow())+
    geom_line(data=wts[c(2,3),], color="red",arrow=arrow())+
    geom_line(data=wts[c(4,5),], color="red",arrow=arrow())+
    geom_line(data=wts[c(6,7),], color="red",arrow=arrow())
  
  # h&lt;-h+
  #   geom_point(data=wts[c(8,9,10),], color="red")
  h
  
  
  
  txt2&lt;- c("60","","","","","","")
  txt3&lt;- c("","","113","","","","")
  txt4&lt;- c("","","","","","33","")
  txt5&lt;- c("","50","","","","","")
  txt6&lt;- c("","","","69","","","")
  txt7&lt;- c("","","","","","","29")
  txt7a&lt;- c("168","108","158","45","114","81","110")
  
  h&lt;-h+ geom_text(aes(label=txt2),position = position_nudge(x=0.5,y = -30))
  h&lt;-h+ geom_text(aes(label=txt3),position = position_nudge(x=0.4,y = -30))
  h&lt;-h+ geom_text(aes(label=txt4),position = position_nudge(x=-0.45,y = 20))
  h&lt;-h+ geom_text(aes(label=txt5),position = position_nudge(x=0.1,y = 15))
  h&lt;-h+ geom_text(aes(label=txt6),position = position_nudge(x=0.1,y = 30))
  h&lt;-h+ geom_text(aes(label=txt7),position = position_nudge(x=0.1,y = -10))
  h&lt;-h+ geom_text(aes(label=txt7),position = position_nudge(x=0.1,y = -10))
  h&lt;-h+ geom_text(aes(label=txt7a),position = position_nudge(x=0.1,y = 0))
  
  h&lt;-h + ylim(25,170)
  h&lt;-h+ 
    scale_x_continuous(breaks=c(2,3,4,5),
                     labels=c("Q218","Q318", "Q418", "Q119"))
  
  h
  </code></pre>