plotting modified point and line plot - variability as "spike" plot in r
===

Before explaining details, here is my data:

    set.seed (1234) 
    datas <- data.frame (Indv = 1:20, Xvar = rnorm (20, 50, 10),
    Yvar = rnorm (20, 30,5), Yvar1 = rnorm (20, 10, 2),
    Yvar2 = rnorm (20, 5, 1), Yvar3 = rnorm (20, 100, 20),
    Yvar4 = rnorm (20, 15, 3))

  

I want to prepare a graph (Metroglymph ) which is essentially point plot however points (of Xvar and Yvar) with spikes (lines) orignated from the point scaled to  rest of variables (Yvar1, Yvar2, Yvar3, Yvar4).
 Each spike are ordered and preferably color coded. 

    require(ggplot2)
    ggplot(datas, aes(x=Xvar, y=Yvar)) +
        geom_point(shape=1, size = 10) + theme_bw()
![enter image description here][1]


  [1]: http://i.stack.imgur.com/qlePF.jpg