From: Gabor Grothendieck <ggrothendieck_at_gmail.com>

Date: Wed 12 Oct 2005 - 00:36:39 EST

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 Wed Oct 12 00:39:43 2005

Date: Wed 12 Oct 2005 - 00:36:39 EST

Just one simple shortening of DR's solution:

tt <- function (n) {

x <- list(data.frame(a=1,b=2), data.frame(a=3,b=4)) print(sapply(x, function(...) subset(...), select = n)) }

n <- "b"

tt("a")

On 10/11/05, Dimitris Rizopoulos <dimitris.rizopoulos@med.kuleuven.be> wrote:

> As Gabor said, the issue here is that subset.data.frame() evaluates

*> the value of the `select' argument in the parent.frame(); Thus, if you
**> create a local function within lapply() (or sapply()) it works:
**>
**> tt <- function (n) {
**> x <- list(data.frame(a = 1, b = 2), data.frame(a = 3, b = 4))
**> print(lapply(x, function(y, n) subset(y, select = n), n = n))
**> print(sapply(x, function(y, n) subset(y, select = n), n = n))
**> }
**>
**> tt("a")
**>
**>
**> I hope it helps.
**>
**> Best,
**> Dimitris
**>
**> ----
**> Dimitris Rizopoulos
**> Ph.D. Student
**> Biostatistical Centre
**> School of Public Health
**> Catholic University of Leuven
**>
**> Address: Kapucijnenvoer 35, Leuven, Belgium
**> Tel: +32/(0)16/336899
**> Fax: +32/(0)16/337015
**> Web: http://www.med.kuleuven.be/biostat/
**> http://www.student.kuleuven.be/~m0390867/dimitris.htm
**>
**>
**>
**> ----- Original Message -----
**> From: "joerg van den hoff" <j.van_den_hoff@fz-rossendorf.de>
**> To: "Gabor Grothendieck" <ggrothendieck@gmail.com>; "Thomas Lumley"
**> <tlumley@u.washington.edu>
**> Cc: "r-help" <r-help@stat.math.ethz.ch>
**> Sent: Tuesday, October 11, 2005 10:18 AM
**> Subject: Re: [R] problem with lapply(x, subset,...) and variable
**> select argument
**>
**>
**> > Gabor Grothendieck wrote:
**> >> The problem is that subset looks into its parent frame but in this
**> >> case the parent frame is not the environment in tt but the
**> >> environment
**> >> in lapply since tt does not call subset directly but rather lapply
**> >> does.
**> >>
**> >> Try this which is similar except we have added the line beginning
**> >> with environment before the print statement.
**> >>
**> >> tt <- function (n) {
**> >> x <- list(data.frame(a=1,b=2), data.frame(a=3,b=4))
**> >> environment(lapply) <- environment()
**> >> print(lapply(x, subset, select = n))
**> >> }
**> >>
**> >> n <- "b"
**> >> tt("a")
**> >>
**> >> What this does is create a new version of lapply whose
**> >> parent is the environment in tt.
**> >>
**> >>
**> >> On 10/10/05, joerg van den hoff <j.van_den_hoff@fz-rossendorf.de>
**> >> wrote:
**> >>
**> >>>I need to extract identically named columns from several data
**> >>>frames in
**> >>>a list. the column name is a variable (i.e. not known in advance).
**> >>>the
**> >>>whole thing occurs within a function body. I'd like to use lapply
**> >>>with a
**> >>>variable 'select' argument.
**> >>>
**> >>>
**> >>>example:
**> >>>
**> >>>tt <- function (n) {
**> >>> x <- list(data.frame(a=1,b=2), data.frame(a=3,b=4))
**> >>> for (xx in x) print(subset(xx, select = n)) ### works
**> >>> print (lapply(x, subset, select = a)) ### works
**> >>> print (lapply(x, subset, select = "a")) ### works
**> >>> print (lapply(x, subset, select = n)) ### does not work as
**> >>> intended
**> >>>}
**> >>>n = "b"
**> >>>tt("a") #works (but selects not the intended column)
**> >>>rm(n)
**> >>>tt("a") #no longer works in the lapply call including variable
**> >>>'n'
**> >>>
**> >>>
**> >>>question: how can I enforce evaluation of the variable n such that
**> >>>the lapply call works? I suspect it has something to do with eval
**> >>>and
**> >>>specifying the correct evaluation frame, but how? ....
**> >>>
**> >>>
**> >>>many thanks
**> >>>
**> >>>joerg
**> >>>
**> >>>______________________________________________
**> >>>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
**> >>>
**> >>
**> >>
**> >
**> > many thanks to thomas and gabor for their help. both solutions solve
**> > my
**> > problem perfectly.
**> >
**> > but just as an attempt to improve my understanding of the inner
**> > workings
**> > of R (similar problems are sure to come up ...) two more question:
**> >
**> > 1.
**> > why does the call of the "[" function (thomas' solution) behave
**> > different from "subset" in that the look up of the variable "n"
**> > works
**> > without providing lapply with the current environment (which is
**> > nice)?
**> >
**> > 2.
**> > using 'subset' in this context becomes more cumbersome, if sapply is
**> > used. it seems that than I need
**> > ...
**> > environment(sapply) <- environment(lapply) <- environment()
**> > sapply(x, subset, select = n))
**> > ...
**> > to get it working (and that means you must know, that sapply uses
**> > lapply). or can I somehow avoid the additional explicit definition
**> > of
**> > the lapply-environment?
**> >
**> >
**> > again: many thanks
**> >
**> > joerg
**> >
**> > ______________________________________________
**> > 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
**> >
**>
**>
**> Disclaimer: http://www.kuleuven.be/cwis/email_disclaimer.htm
**>
**> ______________________________________________
**> 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
**>
*

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 Wed Oct 12 00:39:43 2005

*
This archive was generated by hypermail 2.1.8
: Sun 23 Oct 2005 - 18:40:26 EST
*