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/