R help - Aug 2010 - percentage sign in expression

Readers,

According to the documentation for the function 'plotmath' there is no
apparent possibility to add the percent sign (%) to a plot function,
e.g.

plot(a[,1]~b[,2],ylab=expression(x~%),xlab=expression(z))

How to achieve this please?

yours,

rhelp at conference.jabber.org
r251
mandriva2009

You've tried:

plot(a[,1]~b[,2],ylab=expression(x~'%'),xlab=expression(z)) ?

On Tue, Aug 24, 2010 at 10:37 AM, e-letter <inpost@gmail.com> wrote:
> Readers,
>
> According to the documentation for the function 'plotmath' there is
no
> apparent possibility to add the percent sign (%) to a plot function,
> e.g.
>
> plot(a[,1]~b[,2],ylab=expression(x~%),xlab=expression(z))
>
> How to achieve this please?
>
> yours,
>
> rhelp@conference.jabber.org
> r251
> mandriva2009
>
> ______________________________________________
> 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.
>


-- 
Henrique Dallazuanna
Curitiba-Paraná-Brasil
25° 25' 40" S 49° 16' 22" O

	[[alternative HTML version deleted]]

On Aug 24, 2010, at 9:37 AM, e-letter wrote:
> Readers,
>
> According to the documentation for the function 'plotmath' there is
no
> apparent possibility to add the percent sign (%) to a plot function,
Where did you see an assertion made???
> e.g.
>
> plot(a[,1]~b[,2],ylab=expression(x~%),xlab=expression(z))
>
> How to achieve this please?
Read the plotmath helo page more carefully. The section immediatedly  
below the plotmath expressions points you to the use of the symbol()  
expression-function and to the points help page where generation of  
the available glyphs proceeds according to the advice on help(plotmath):

 > TestChars <- function(sign=1, font=1, ...)
+ {
+    if(font == 5) { sign <- 1; r <- c(32:126, 160:254)
+    } else if (l10n_info()$MBCS) r <- 32:126 else r <- 32:255
+    if (sign == -1) r <- c(32:126, 160:255)
+    par(pty="s")
+    plot(c(-1,16), c(-1,16), type="n", xlab="",
ylab="",
+         xaxs="i", yaxs="i")
+    grid(17, 17, lty=1)
+    for(i in r) try(points(i%%16, i%/%16, pch=sign*i, font=font,...))
+ }
 > TestChars(font=5)

Notice that the "%" sign is three characters to the right (i.e.  
higher) of the "forall" symbol that is produced by the example code  
they offer. (The numbering proceeds from bottom up which confused me  
at first.)

So:

plot(1, ylab=expression(symbol("\045") ))

-- 
David Winsemius, MD
West Hartford, CT