[R] Labelling

arun smartpink111 at yahoo.com
Tue Jul 9 14:48:26 CEST 2013

May be this helps:

 gsub("_"," ",gsub("(.*)_.*","\\1",DATA_names))
#[1] "A ugkg"  "S mgkg"  "Cl mgkg"
sapply(gsub("_"," ",gsub("(.*)_.*","\\1",DATA_names)),f)
$`A ugkg`
A ~ (mu * g ~ kg^{

$`S mgkg`
S ~ (mg ~ kg^{

$`Cl mgkg`
Cl ~ (mg ~ kg^{


----- Original Message -----
From: Shane Carey <careyshan at gmail.com>
To: "r-help at r-project.org" <r-help at r-project.org>
Sent: Tuesday, July 9, 2013 7:20 AM
Subject: [R] Labelling


I have the following data as labels:

DATA_names<-c("A_ugkg_FA","S_mgkg_XRF" ,"Cl_mgkg_XR")

and I need to convert to

A (ug kg     )

S (mg kg    )

Cl (mg kg    )

I used the following piece of code to convert the following labels in the
past, but cant get it to work for the new labels:

f <- function (name)
  # add other suffices and their corresponding plotmath expressions to the
  env <- list2env(list(mgkg = bquote(mg ~ kg^{-1}),
                       ugkg = bquote(mu * g ~ kg^{-1})),
                  parent = emptyenv())
  pattern <- paste0("(", paste(objects(env), collapse="|"), ")")
  bquoteExpr <- parse(text=gsub(pattern,
  # I use do.call() to work around the fact that bquote's first argument is
not evaluated.
  do.call(bquote, list(bquoteExpr, env))

The labels in the past were:
DATA_names<-c("A_ugkg","S_mgkg" ,"Cl_mgkg")



    [[alternative HTML version deleted]]

R-help at r-project.org mailing list
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

More information about the R-help mailing list