[R] ggplot2: geom_smooth and legend

[Benoit Boulinguiez]

Sorry I forgot the code that goes with

******CODE
desorb_plot<-ggplot() +

	geom_smooth(data=DATA.B1_SA_N2,
			aes(Temp,DrTGA*100,colour="B1"),span=0.1,size=1.6) +
	geom_smooth(data=DATA.FM30K_SA_N2,
			aes(Temp,DrTGA*100,colour="FM30K"),span=0.2,size=1.6) +
	geom_smooth(data=DATA.NC60_SA_N2,
			aes(Temp,-DrTGA*100,colour="NC60"),span=0.1,size=1.6) +
	geom_smooth(data=DATA.THC515_SA_N2,
			aes(Temp,DrTGA*100,colour="THC515"),span=0.2,size=1.6) +

	scale_colour_hue(name="Adsorbent") +
	labs(x=Temp~(degree*C),y=Weight~Derivative~("%/"*degree*C)) +
	opts(panel.grid.minor = theme_line(colour = "grey94"))

print(desorb_plot)


Cordialement / Regards

-------------------------------------------
Benoit Boulinguiez
Ecole de Chimie de Rennes (ENSCR) Bureau 1.20
Equipe CIP UMR CNRS 6226 "Sciences Chimiques de Rennes"
Avenue du Général Leclerc
CS 50837
35708 Rennes CEDEX 7
Tel 33 (0)2 23 23 80 83
Fax 33 (0)2 23 23 81 20
http://www.ensc-rennes.fr/


Quoting Benoit Boulinguiez <benoit.boulinguiez at ensc-rennes.fr>:

> Hi all,
>
> Is that possible to remove the grey colour in the legend key that goes
> with the geom_smooth? In my case it doesn't ease the reading of the
> legend.
>
> http://www.4shared.com/file/125864977/e10644f8/desorb.html
>
>
> Cordialement / Regards
>
> -------------------------------------------
> Benoit Boulinguiez
> Ecole de Chimie de Rennes (ENSCR) Bureau 1.20
> Equipe CIP UMR CNRS 6226 "Sciences Chimiques de Rennes"
> Avenue du Général Leclerc
> CS 50837
> 35708 Rennes CEDEX 7
> Tel 33 (0)2 23 23 80 83
> Fax 33 (0)2 23 23 81 20
> http://www.ensc-rennes.fr/