greek symbols using pch
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