put labels to ggplot2 graphs
===

I am trying to add labels to ggplto2 graphs that has many points and geom_line. Since the graph has way to many data points and linear lines, graph looks very cluttered. I would like to add lables to the linear lines so that end user will definetely know what lines belongs to what server etc. 

my data frame looks like this
z

    Hostname	Memory	Date
    ServerA         50	2012-01-01 01:00:00
    ServerB         30	2012-01-01 01:00:00
    ServerC         30	2012-01-01 01:00:00
    ServerD         20	2012-01-01 01:00:00
    ServerE         80	2012-01-01 01:00:00
    
    ServerA         20	2012-01-02 01:00:00
    ServerB         10	2012-01-02 01:00:00
    ServerC         5	2012-01-02 01:00:00
    ServerD         39	2012-01-02 01:00:00
    ServerE         50	2012-01-02 01:00:00

   

    p<- ggplot(z, aes(x=Date, y=Memory, colour=Hostname, size=0.1)) + geom_point(size=0.1) + theme_bw

    () + geom_smooth(method = "lm", se=FALSE, size = 1) + theme_bw() + geom_point(size=0.2)

I tried using direct.lable(p, "last.points") or "first.points, still not clear enough. And when I do last.points, labels are being chopped off.

Is it possible to put a lable on the lm line?


