Thanks Hadley for your input.
The following code works fine now.
Thanks again


con = textConnection("inputs  var1  var2  var3
100 10 5 2
1000 20 10 4
5000 30 15 8
10000 40 20 16
30000 50 25 32")
 data = read.table(con, header=TRUE)
 data
 data = melt(data, id="inputs")
 g <- ggplot(data,aes(x=inputs, value, colour= variable, shape=variable))
 g <- g + geom_line(lwd=0.8)
 g <- g + geom_point()
g <- g + scale_colour_discrete('my Custom Legend')
g <- g + scale_shape_discrete("my Custom Legend")
g


-------------

On Tue, Jan 17, 2012 at 10:07 AM, Hadley Wickham <hadley@rice.edu> wrote:

> On Mon, Jan 16, 2012 at 6:05 PM, Mary Kindall <mary.kindall@gmail.com>
> wrote:
> > Thanks for reply
> > I wanted to have legend name with spaces. Right now I am using the
> > following code but it produce two legends. I have to use Gimp to cut the
> > redundant legend.
>
> Your basic problem is that you're using the fill and colour
> aesthetics, but you only need colour.
>
> Hadley
>
> --
> Assistant Professor / Dobelman Family Junior Chair
> Department of Statistics / Rice University
> http://had.co.nz/
>



-- 
-------------
Mary Kindall
Yorktown Heights, NY
USA

	[[alternative HTML version deleted]]

