[R] Automating plot labelling in custom function in lapply() ?

From: Gavin Simpson <gavin.simpson_at_ucl.ac.uk>
Date: Fri 29 Apr 2005 - 22:00:57 EST


Dear List,

Consider the following example:

dat <- data.frame(var1 = rnorm(100), var2 = rnorm(100),

                   var3 = rnorm(100), var4 = rnorm(100))
oldpar <- par(mfrow = c(2,2), no.readonly = TRUE) invisible(lapply(dat,
                  function(x) {
                    plot(density(x),
                         main = deparse(substitute(x))) }
                  )
           )

par(oldpar)

I want to the main title in each of the density plots to be var1, var2, etc. The above code produces x[[1]], x[[2]] etc.

What do I need to modify to be able to use the name of x as the plot label within in the above situation?

Thanks in advance,

Gav

-- 

%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%
Gavin Simpson [T] +44 (0)20 7679 5522 ENSIS Research Fellow [F] +44 (0)20 7679 7565 ENSIS Ltd. & ECRC [E] gavin.simpsonATNOSPAMucl.ac.uk UCL Department of Geography [W] http://www.ucl.ac.uk/~ucfagls/cv/ 26 Bedford Way [W] http://www.ucl.ac.uk/~ucfagls/ London. WC1H 0AP.
%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%
______________________________________________ R-help@stat.math.ethz.ch mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
Received on Fri Apr 29 22:06:32 2005

This archive was generated by hypermail 2.1.8 : Fri 03 Mar 2006 - 03:31:30 EST