Graphic legend with mathematical symbol, numeric variable and character variable

3 messages · "ECOTIÈRE David (Responsable d'activité) - CETE Est/LRPC de Strasbourg/6 Acoustique", Patrick Breheny, Peter Ehlers

Original

"ECOTIÈRE David (Responsable d'activité) - CETE Est/LRPC de Strasbourg/6 Acoustique"

Tue, Mar 20, 2012 6:09 AM #

Hi,

I'd like to make a legend with a mix of mathematical symbol (tau), 
numeric variable and character variables.I have tried :


types<-c("Type 1","Type 2","Type 2")
tau<-c(1,3,2)
legend(x="topright",legend=paste(types,"tau=",expression(tau)))



but it doesn't work: the 'tau' symbol is not written in its 'symbol 
style' but as 'tau'

Any (good) idea ?
Thank you in advance !

David

Patrick Breheny

Tue, Mar 20, 2012 12:04 PM #

There are a few different ways to do this; see the examples in ?plotmath 
under the heading "How to combine 'math' and numeric variables".

Patrick Breheny
Assistant Professor
Department of Biostatistics
Department of Statistics
University of Kentucky

On 03/20/2012 09:09 AM, "ECOTI?RE David (Responsable d'activit?) - CETE 
Est/LRPC de Strasbourg/6 Acoustique" wrote:
> Hi,
>
> I'd like to make a legend with a mix of mathematical symbol (tau),
> numeric variable and character variables.I have tried :
>
>
> types<-c("Type 1","Type 2","Type 2")
> tau<-c(1,3,2)
> legend(x="topright",legend=paste(types,"tau=",expression(tau)))
>
>
>
> but it doesn't work: the 'tau' symbol is not written in its 'symbol
> style' but as 'tau'
>
> Any (good) idea ?
> Thank you in advance !

Peter Ehlers

Wed, Mar 21, 2012 4:57 AM #

On 2012-03-20 06:09, "ECOTI?RE David (Responsable d'activit?) - CETE

Est/LRPC de Strasbourg/6 Acoustique" wrote:

Does this do what you want:

   types <- paste('Type', 1:3, sep='~')
   mytau <- 4:6
   leg <- parse(text=paste(types, "~~tau==", mytau, sep='~'))
   plot(0)
   legend('topright', legend=leg)

The '~' symbols generate spaces; use more if you want more spacing.


Peter Ehlers