[R] greek symbols using pch

[ecatchpole]

On 11/10/05 01:12,  Earl F. Glynn wrote,:
> "FISCHER, Matthew" <mjf at ansto.gov.au> wrote in message
> news:283982AD9F3CD211B3AC00A0C983032F11443674 at paradise.ansto.gov.au...
> 
>>    In a plot, can I specify pch to be a greek symbol? (I looked at
>>show.pch() in the Hmisc package but couldn't see the right symbols in
> there).
>>If not, I guess I can get around this using text(x,y,expression()).
> 
> I'm not sure where this is explained very well.  Having ?font give a clue
> about this would be nice.
> 
> Use font=5, the symbol font.  To see what's in font=5:
> 
> par(font=5, las=1)
> plot(0:15,0:15,type="n",ylim=c(15,0),
>   main="Symbols in Font=5",
>   xlab="", ylab="",xaxt="n", yaxt="n")
> axis(BOTTOM<-1, at=0:15, 1:16)
> axis(LEFT  <-2, at=0:15)
> abline(v=0.5 + 0:14,
>        h=0.5 + 0:14, col="grey", lty="dotted")
> 
> # pch index of any cell is 16*row + column
> for(i in 0:255)
> {
>   x <- i %%16;
>   y <- i %/% 16;
>   points(x,y,pch=i+1)
> }

When I execute this code, I get a calligraphic R or P occurring with all 
of the nifty characters, e.g. \clubsuit. For example

par(font=5, las=1)
plot(0:1, 0:1, type="n")
points(.5, .5, pch=167)

This occurs on screen and in postscript() output. And with R2.1.0 and 
R2.2.0. Is this a bug?

Ted.

 > R.Version()
$platform
[1] "i686-pc-linux-gnu"

$arch
[1] "i686"

$os
[1] "linux-gnu"

$system
[1] "i686, linux-gnu"

$status
[1] ""

$major
[1] "2"

$minor
[1] "2.0"

$year
[1] "2005"

$month
[1] "10"

$day
[1] "06"

$"svn rev"
[1] "35749"

$language
[1] "R"



-- 
Dr E.A. Catchpole
Visiting Fellow
Univ of New South Wales at ADFA, Canberra, Australia
and University of Kent, Canterbury, England
- www.ma.adfa.edu.au/~eac
- fax: +61 2 6268 8786		
- ph:  +61 2 6268 8895