# [R] How to vectorize

From: PANTERA Laurent <laurent.pantera_at_irsn.fr>
Date: Mon 06 Jun 2005 - 23:54:58 EST

I would like to write nicely the names of some isotopes on a plot. The code bellow works fine.

plot(1:10,1:10)

```text(c(2,4,8),c(2,4,8),labels=c(expression(italic(phantom(0)^{78}*Ge)),
expression(italic(phantom(0)^{137}*Cs)),
expression(italic(phantom(0)^{129*m}*Te))),
cex=3
)

```

But, since I have a lot of isotopes to write on the plot, I would like to construct automatically the labels. So I wrote the code below which works fine.

listenoms <- list(nom=c("Ge","Cs","Te"),num=c("78","137","129*m")) n <- length(listenoms\$nom)
resu <- "c("
for( i in 1:(n-1))
{
resu <- paste(resu,paste("expression(italic(phantom(0)^{",

```                         listenoms\$num[i],"}*",
listenoms\$nom[i],")),",sep=""))
```
}
resu <- paste(resu,paste("expression(italic(phantom(0)^{",
```                         listenoms\$num[n],"}*",
listenoms\$nom[n],")))",sep=""))
```
plot(1:10,1:10)

text(c(2,4,8),c(2,4,8),labels=eval(parse(text=resu)),cex=2)

I assume there is a better way to do that using vectorization. May you help me to find it ?

Thanks
Laurent

R-help@stat.math.ethz.ch mailing list