You might want to read Ligges, U. (2002): R Help Desk: Automation of Mathematical Annotation in Plots. R News 2 (3), 32-34. with an example at the end that meets your requirements:
(please note that I removed those ugly ";" mySigma[1] <- 2 mySigma[2] <- 3 plot(1:10, dnorm(1:10, sd = mySigma[1]), type = 'l') lines(dnorm(1:10, sd = mySigma[2]), lty = 2) legend1 <- substitute(sigma == myS, list(myS = mySigma[1])) legend2 <- substitute(sigma == myS, list(myS = mySigma[2])) legend(x = "topright", lty = c(1,2), legend = do.call(expression, list(legend1, legend2))) Uwe Ligges Mario Maiworm wrote: > Finally, this should work for an array of sigmas. I just realized that the > substitute()-command is not evaluated within a c()-environment :( > > mySigma[1] <- 2; mySigma[2] <- 3; > plot(1:10, dnorm(1:10, sd = mySigma[1]), type = 'l') ; > lines(dnorm(1:10,sd = mySigma[2]),lty = 2); > legend(x = "topright", lty = c(1,2),legend = c(substitute(sigma == myS, > list(myS = mySigma[1])),substitute(sigma == myS, list(myS = mySigma[2])))) > > Mario. > > > __________________________________________________________________ > > Mario Maiworm > Biological Psychology and Neuropsychology > University of Hamburg > Von-Melle-Park 11 > D-20146 Hamburg > > Tel.: +49 40 42838 3515 > Fax.: +49 40 42838 6591 > > http://bpn.uni-hamburg.de/Maiworm_e.html > http://cinacs.org > __________________________________________________________________ > >>>> -----Ursprüngliche Nachricht----- >>>> Von: Uwe Ligges [mailto:[EMAIL PROTECTED] >>>> Gesendet: Freitag, 7. März 2008 16:30 >>>> An: Mario Maiworm >>>> Cc: r-help@r-project.org >>>> Betreff: Re: AW: [R] LaTeX in R >>>> >>>> >>>> >>>> Mario Maiworm wrote: >>>>> Thank you, uwe and jeremy. I was actually looking exactly for that! >>>> But >>>>> something still doesn't work: >>>>> I want to plot a symbol in a legend of a plot, lets say "\sigma = 2". >>>> 2 >>>>> should be the value of a variable. So, when I try >>>>> >>>>> mySigma=2;plot(1:10,dnorm(1:10,sd=mySigma),type='l') >>>>> legend(x="topright",legend=paste(expression(sigma)," = >>>> ",mySigma),lty=1) >>>>> , the sigma is not plotted as a symbol. This version: >>>>> >>>>> mySigma=2;plot(1:10,dnorm(1:10,sd=mySigma),type='l') >>>>> legend(x="topright",legend=expression(paste(sigma," = >>>> ",mySigma)),lty=1) >>>>> gives me a 'real' sigma but the mySigma variable is not evaluated. Any >>>>> ideas? >>>> Yes: >>>> >>>> >>>> mySigma <- 2 >>>> plot(1:10, dnorm(1:10, sd = mySigma), type='l') >>>> legend(x = "topright", lty = 1, >>>> legend = substitute(sigma == myS, list(myS = mySigma))) >>>> >>>> >>>> Uwe Ligges >>>> >>>> >>>>> Mario. >>>>> >>>>> __________________________________________________________________ >>>>> >>>>> Mario Maiworm >>>>> Biological Psychology and Neuropsychology >>>>> University of Hamburg >>>>> Von-Melle-Park 11 >>>>> D-20146 Hamburg >>>>> >>>>> Tel.: +49 40 42838 3515 >>>>> Fax.: +49 40 42838 6591 >>>>> >>>>> http://bpn.uni-hamburg.de/Maiworm_e.html >>>>> http://cinacs.org >>>>> __________________________________________________________________ >>>>> >>>>>>>> -----Ursprüngliche Nachricht----- >>>>>>>> Von: Uwe Ligges [mailto:[EMAIL PROTECTED] >>>>>>>> Gesendet: Freitag, 7. März 2008 15:27 >>>>>>>> An: Mario Maiworm >>>>>>>> Cc: r-help@r-project.org >>>>>>>> Betreff: Re: [R] LaTeX in R >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> Mario Maiworm wrote: >>>>>>>>> Dear Rers, >>>>>>>>> I understand that I can include R-code in LaTeX using Sweave. Is >>>> there >>>>>>>> a way >>>>>>>>> to do it the other way round? Particularly, I need some TeX >>>> symbols in >>>>>>>> the >>>>>>>>> legend of an R-plot. This can be done in matlab easily, so I am >>>>>>>> optimistic >>>>>>>>> with R. Any suggestions for a command or package? >>>>>>>> See ?plotmath >>>>>>>> >>>>>>>> Uwe Ligges >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>>> Best, >>>>>>>>> Mario. >>>>>>>>> >>>>>>>>> >>>>>>>>> >>>>>>>>> __________________________________________________________________ >>>>>>>>> >>>>>>>>> Mario Maiworm >>>>>>>>> Biological Psychology and Neuropsychology >>>>>>>>> University of Hamburg >>>>>>>>> Von-Melle-Park 11 >>>>>>>>> D-20146 Hamburg >>>>>>>>> >>>>>>>>> Tel.: +49 40 42838 3515 >>>>>>>>> Fax.: +49 40 42838 6591 >>>>>>>>> >>>>>>>>> http://bpn.uni-hamburg.de/Maiworm_e.html >>>>>>>>> http://cinacs.org >>>>>>>>> >>>>>>>>> ______________________________________________ >>>>>>>>> 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. > ______________________________________________ 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.