R help - Mar 2010 - Bold greek letters using plotmath

I'm trying to annotate some graphics using plotmath and finding out that the
code I'm using isn't bolding the greek letters - it bolds the rest (once
I
adjusted the numerics to characters), it's just failing on the greek
characters.

Any suggestions welcomed.

Jim Price.
Cardiome Pharma Corp.


Test code:


plot(1:5, type = 'n')


# The not bold version
text(2, 2:4, cex = 2, labels = do.call(expression, 
	unlist(list('Placebo', lapply(c(3, 6), function(.x) substitute(.x ~~ mu
* g
/ kg / hr, list(.x = .x)))), recur = F)))


# The bold version - note that the greek letter doesn't change
text(4, 2:4, cex = 2, labels = do.call(expression, 
	unlist(list(substitute(bold(Placebo)), lapply(as.character(c(3, 6)),
function(.x) substitute(bold(.x ~~ mu * g / kg / hr), list(.x = .x)))),
recur = F)))





> sessionInfo()
R version 2.10.0 (2009-10-26) 
i386-pc-mingw32 

locale:
[1] LC_COLLATE=English_United States.1252  LC_CTYPE=English_United
States.1252   
[3] LC_MONETARY=English_United States.1252 LC_NUMERIC=C
[5] LC_TIME=English_United States.1252    

attached base packages:
[1] graphics  grDevices utils     datasets  methods   stats     base     

other attached packages:
[1] foreign_0.8-38     latticeExtra_0.6-1 RColorBrewer_1.0-2 lattice_0.17-26   

loaded via a namespace (and not attached):
[1] grid_2.10.0  tools_2.10.0


-- 
View this message in context:
http://n4.nabble.com/Bold-greek-letters-using-plotmath-tp1679759p1679759.html
Sent from the R help mailing list archive at Nabble.com.

Plotmath does not have a bold symbol font -- R's plotting system has 
only 5 fonts (see 'font' in ?par), and bold symbol fonts are not 
commonly installed in plotting systems.

Strictly the symbols such as mu used in mathematical notation differ 
from the letters used in Greek.   You may get a good substitute using 
a Greek letter, depending on the device -- which you have not told us 
but I would guess() was windows().

Try replating mu by "\u03bc".  (I am not using Windows, but this works
on X11() and quartz() for example.)

On Tue, 23 Mar 2010, Jim Price wrote:
>
> I'm trying to annotate some graphics using plotmath and finding out
that the
> code I'm using isn't bolding the greek letters - it bolds the rest
(once I
> adjusted the numerics to characters), it's just failing on the greek
> characters.
>
> Any suggestions welcomed.
>
> Jim Price.
> Cardiome Pharma Corp.
>
>
> Test code:
>
>
> plot(1:5, type = 'n')
>
>
> # The not bold version
> text(2, 2:4, cex = 2, labels = do.call(expression,
> 	unlist(list('Placebo', lapply(c(3, 6), function(.x) substitute(.x
~~ mu * g
> / kg / hr, list(.x = .x)))), recur = F)))
>
>
> # The bold version - note that the greek letter doesn't change
> text(4, 2:4, cex = 2, labels = do.call(expression,
> 	unlist(list(substitute(bold(Placebo)), lapply(as.character(c(3, 6)),
> function(.x) 
substitute(bold(.x ~~ mu * g / kg / hr), list(.x =
.x)))),
> recur = F)))
>
>
>
>
>
>
>> sessionInfo()
> R version 2.10.0 (2009-10-26)
> i386-pc-mingw32
>
> locale:
> [1] LC_COLLATE=English_United States.1252  LC_CTYPE=English_United
> States.1252
> [3] LC_MONETARY=English_United States.1252 LC_NUMERIC=C
> [5] LC_TIME=English_United States.1252
>
> attached base packages:
> [1] graphics  grDevices utils     datasets  methods   stats     base
>
> other attached packages:
> [1] foreign_0.8-38     latticeExtra_0.6-1 RColorBrewer_1.0-2
lattice_0.17-26
>
> loaded via a namespace (and not attached):
> [1] grid_2.10.0  tools_2.10.0

-- 
Brian D. Ripley,                  ripley at stats.ox.ac.uk
Professor of Applied Statistics,  http://www.stats.ox.ac.uk/~ripley/
University of Oxford,             Tel:  +44 1865 272861 (self)
1 South Parks Road,                     +44 1865 272866 (PA)
Oxford OX1 3TG, UK                Fax:  +44 1865 272595