[R] Paste expression in graph title

[Dimitris Rizopoulos]

Have a look at the help page for ?plotmath, and try also this:

x <- rnorm(10)
y <- rnorm(10)
R2 <- round(summary(lm(y ~ x))$r.squared, 3)
plot(x, y, main = bquote(R^2 == .(R2)))


I hope it helps.

Best,
Dimitris


Paul Chatfield wrote:
> This was my initial attempt at creating a title on a graph of the R squared
> value:
> 
> x<-rnorm(10)
> y<-rnorm(10)
> plot(x,y, main=paste(expression(R^2)," = ",round(summary(lm(y~
> x))$r.squared, digits=3), sep=""))
> 
> I've read various other posts that say expression needs to be taken outside
> the paste, but I can't seem to get it work as the following fails
> 
> plot(x,y, main=expression(paste("R^2"," = ",round(summary(lm(y~
> x))$r.squared, digits=3), sep="")))
> 
> I tried it with title() and didn't get much further either.
> 
> Hmmm, any ideas what am I missing?
> 
> Thanks
> 
> Paul

-- 
Dimitris Rizopoulos
Assistant Professor
Department of Biostatistics
Erasmus University Medical Center

Address: PO Box 2040, 3000 CA Rotterdam, the Netherlands
Tel: +31/(0)10/7043478
Fax: +31/(0)10/7043014