Thank you, your suggestions are very helpful. As I said, I'm a novice to R and this list, and it's hard for me to decipher exactly what is required; I was really hoping for some basic script formatting guidance (which was given and appreciated).
Jake Andrae PhD Candidate Geology & Geophysics � Sprigg Geobiology Centre Department of Earth Science School of Physical Sciences The University of Adelaide, AUSTRALIA 5005 Phone: 0407701565 Email: jake.and...@adelaide.edu.au ________________________________ From: Richard M. Heiberger <r...@temple.edu> Sent: Thursday, 19 January 2017 12:58 PM To: Jake William Andrae Subject: Re: [R] Superscript in graph text your example is not reproducible because I don't have your dataset. Please re-read the notes at the bottom of every R-help email PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code. The convention on this email list is to always stay on the list. It is not good form to write only to the person who replies to you and the list. For base graphics, you can use an expression or bquote in any of the annotation arguments or functions. I showed you a use in main=. It works the same for all others. plot(1:10) p <- .4 R2 <- .9876 mtext(bquote(p * " = " * .(p)), adj=0, line=0.1, col="black", cex=0.7) mtext(bquote(R^2 * " =" * .(R2)), adj=0, line=1, col="black", cex=0.7) ## Using mtext doesn't look like a good idea. ## use sub or main or some other keywords title(main=bquote(p * " = " * .(p)), sub=bquote(R^2 * "/" * p * " = " * .(R2/p))) ## Or do it all together p <- .4 R2 <- .9876 plot(1:10, main=bquote(p * " = " * .(p)), sub=bquote(R^2 * "/" * p * " = " * .(R2/p)), xlab=bquote(R^2 * " = " * .(R2)), ylab=expression(e^(-z^2)) ) ## at some point, soon I recommend, you should learn either lattice or ggplot. ## you might also want to look at the archives of R-SIG-Geo,start with https://www.r-project.org/mail.html ## Please Keep the list in further emails On Wed, Jan 18, 2017 at 8:09 PM, Jake William Andrae <jake.and...@adelaide.edu.au> wrote: > Hi Richard, > > > If I want to use the ?plotmath function, how would I go about writing that > into the script I have for my graphs? > > I've just pasted the whole script here, with the summary label section > higlighted. Sorry to be a burden like this, I'm a real novice to R haha. > > > #Concentration > plot(Annual_precipitation, Concentration, xaxs = "i", yaxs = "i", xlim = > c(1000, 2400), ylim = c(0,500), xlab = NA, ylab = "Concentration", xaxt='n', > pch=21, bg='black', > rect(par("usr")[1],par("usr")[3],par("usr")[2],par("usr")[4],col = "gray")) > par(xpd=FALSE) > abline(lm(Concentration~Annual_precipitation)) > par(xpd=NA) > AnnualPrecipitationConcentration <- lm(Concentration~Annual_precipitation) > #Summary labels > R2 <- round(summary(AnnualPrecipitationConcentration)$r.squared, 2) > p <- anova(AnnualPrecipitationConcentration)[1,5] > if(p <= 0.001){ > p <- "< 0.001" > }else{p <- round(p, 3)} > x <- 10 > mtext(paste("R2 = ", R2), adj=0, line=1, col="black", cex=0.7) > mtext(paste("p = ", p), adj=0, line=0.1, col="black", cex=0.7) > > > Kind regards, > > Jake > > > > Jake Andrae > PhD Candidate > Geology & Geophysics � Sprigg Geobiology Centre > Department of Earth Science > School of Physical Sciences > The University of Adelaide, AUSTRALIA 5005 > Phone: 0407701565 > Email: jake.and...@adelaide.edu.au > > ________________________________ > From: Richard M. Heiberger <r...@temple.edu> > Sent: Thursday, 19 January 2017 11:30:38 AM > To: Jake William Andrae > Cc: r-help@r-project.org > Subject: Re: [R] Superscript in graph text > > x <- 10 > plot(1:10, main=bquote(R^2 * "=" * .(x))) > > On Wed, Jan 18, 2017 at 8:00 PM, Richard M. Heiberger <r...@temple.edu> > wrote: >> ?plotmath >> >> >> plot(1:10, main=expression(R^2)) >> >> plot(1:10, main=bquote(R^2 * "=" * .(x))) >> >> On Wed, Jan 18, 2017 at 7:44 PM, Jake William Andrae >> <jake.and...@adelaide.edu.au> wrote: >>> Hello, >>> >>> >>> I've added some statistical information as text to some graphs, but I'm >>> having a really hard time making the 2 in the R2 label superscript. Does >>> anyone have any suggestions? >>> >>> >>> mtext(paste("R2 = ", R2), adj=0, line=1, col="black", cex=0.7) >>> >>> >>> Kind regards >>> >>> >>> Jake Andrae >>> PhD Candidate >>> Geology & Geophysics - Sprigg Geobiology Centre >>> Department of Earth Science >>> School of Physical Sciences >>> The University of Adelaide, AUSTRALIA 5005 >>> Phone: 0407701565 >>> Email: jake.and...@adelaide.edu.au >>> >>> >>> [[alternative HTML version deleted]] >>> >>> ______________________________________________ >>> R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see >>> https://stat.ethz.ch/mailman/listinfo/r-help R-help Info Page - Homepage - SfS � Seminar for Statistics<https://stat.ethz.ch/mailman/listinfo/r-help> stat.ethz.ch The main R mailing list, for announcements about the development of R and the availability of new code, questions and answers about problems and solutions using R ... >>> PLEASE do read the posting guide >>> http://www.R-project.org/posting-guide.html >>> and provide commented, minimal, self-contained, reproducible code. [[alternative HTML version deleted]]
______________________________________________ R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see 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.
