[R] Building a plotmath string in a function

[dkStevens]

I apologize if this has been asked before but I've look for a long time with
no success.  My problem is that I want to annotate a plot with an expression
that combines parameter names with fitted values for from 1 to n parameters
depending on the problem - something like

R = 16.1, P[m] = 4.51, k[a] = 7.23, alpha[r] = .01 ...

with the [] values as subscripts. I thought that because the number and
names of the parameters would vary, doing this in a function would be best.
I've attempted a variety of as.expressions, substitutes, evals in a loop
that loops through the list of parameters sent to the function but am
getting nowhere.  Could someone point me to some references beyond the
standard documentation that might help.  Here's my latest attempt:

BuildParString = function(params) {

  nPar = length(params)  # params is a vector of numerical values
    s = NULL
  if(nPar < 1) {
    return
  }

  pNames = c("R","P[m]","k[a]","alpha[r]","beta[r]","phi")
  vparams = format(params,digits=3)

  s = as.expression(substitute(pp==vv,list(vv=vparams[1],pp=pNames[1])))
  for(i in 2:nPar) {
  s =
c(s,eval(as.expression(substitute(expression(pp==vv),list(vv=vparams[i],pp=pNames[i])))))
  }
  as.expression(s)
}

#  the result is 
expression("R" == "13.34859", "P[m]" == " 2.53071", "k[a]" == " 4.06000", 
    "alpha[r]" == " 0.00719")

which in spirit is what I want but won't plot properly using text (...). Any
help would be appreciated.
-- 
View this message in context: http://n4.nabble.com/Building-a-plotmath-string-in-a-function-tp1459048p1459048.html
Sent from the R help mailing list archive at Nabble.com.