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.boulingu...@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/
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
