Skip to content

Paste expression in graph title

5 messages · Paul Chatfield, Dimitris Rizopoulos, Gabor Grothendieck +1 more

Paul Chatfield
# 
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
# 
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:

  
    

      
      
    

  


  


      

    

    

      
      

        


  

        

      Gabor Grothendieck
    

    

      
      #
    

  


  

      
Try bquote:

set.seed(123)
x<-rnorm(10)
y<-rnorm(10)

R2 <- summary(lm(y ~ x))$r.squared
R2round <- round(R2, digits = 3)

plot(x, y, main = bquote(R^2 == .(R2round)))


On Mon, Jan 25, 2010 at 7:06 AM, Paul Chatfield

        
<p.s.chatfield at reading.ac.uk> wrote:

            

      
      
      
    

        

      
      
    

  
  


  


      

    

    

      
      

        


  

        

      Henrique Dallazuanna
    

    

      
      #
    

  


  

      
Try this:

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


On Mon, Jan 25, 2010 at 10:06 AM, Paul Chatfield

        
<p.s.chatfield at reading.ac.uk> wrote: