Thanks everyone for your suggestions (and sorry for the delay in the
acknowledgement). Jorge and Jim, thanks for pointing out your approach.
Andrew
On Fri, Jul 18, 2008 at 7:02 PM, Jorge Ivan Velez
<[EMAIL PROTECTED]>wrote:
>
> Dear Andrew,
>
> Following Jim Holtman' solution (thanks for pointed it out), try:
>
> a <- data.frame(var.1 = 1:5)
> b <- data.frame(var.1 = 11:15)
> test.list <- list(a=a, b=b)
> do.call(rbind,lapply(names(test.list), function(x){
> cbind(test.list[[x]], var.2=x)
> }))
>
>
> HTH,
>
> Jorge
>
>
>
>
> On Fri, Jul 18, 2008 at 6:57 PM, jim holtman <[EMAIL PROTECTED]> wrote:
>
>> Is this what you wanted; you would use the 'names' to get the names in
>> the lapply:
>>
>> > lapply(names(test.list), function(x){
>> + cbind(test.list[[x]], var.2=x)
>> + })
>> [[1]]
>> var.1 var.2
>> 1 1 a
>> 2 2 a
>> 3 3 a
>> 4 4 a
>> 5 5 a
>>
>> [[2]]
>> var.1 var.2
>> 1 11 b
>> 2 12 b
>> 3 13 b
>> 4 14 b
>> 5 15 b
>>
>>
>>
>> On Fri, Jul 18, 2008 at 6:31 PM, Jorge Ivan Velez
>> <[EMAIL PROTECTED]> wrote:
>> > Dear Andrew,
>> >
>> > It's not the best solution but it does what you need:
>> >
>> > a <- data.frame(var.1 = 1:5)
>> > b <- data.frame(var.1 = 11:15)
>> > test.list <- list(a=a, b=b)
>> > res=do.call(rbind,test.list)
>> > res$var.2=substr(rownames(res),1,1)
>> > rownames(res)=NULL
>> > res
>> >
>> >
>> > HTH,
>> >
>> > Jorge
>> >
>> >
>> > On Fri, Jul 18, 2008 at 6:21 PM, Andrew Yee <[EMAIL PROTECTED]>
>> wrote:
>> >
>> >> In the following code, I'd like to be able to create a new variable
>> >> containing the value of the names of the list.
>> >>
>> >>
>> >> a <- data.frame(var.1 = 1:5)
>> >> b <- data.frame(var.1 = 11:15)
>> >>
>> >> test.list <- list(a=a, b=b)
>> >>
>> >> # in this case, names(test.list) is "a" and "b"
>> >>
>> >> # and I'd like to use lapply() so that
>> >> # I get something that looks like
>> >> # var.1 var.2
>> >> # 1 a
>> >> # 2 a
>> >> # 3 a
>> >> #etc.
>> >>
>> >> new.list <- lapply(test.list, function(x) {x$var.2 <- names(x)
>> >> x} )
>> >>
>> >>
>> >> # the above clearly doesn't do it. How do you pull out the names of
>> the
>> >> thing that is being lapplied?
>> >>
>> >> Thanks,
>> >> Andrew
>> >>
>> >> [[alternative HTML version deleted]]
>> >>
>> >> ______________________________________________
>> >> [email protected] mailing list
>> >> https://stat.ethz.ch/mailman/listinfo/r-help
>> >> PLEASE do read the posting guide
>> >> http://www.R-project.org/posting-guide.html
>> >> and provide commented, minimal, self-contained, reproducible code.
>> >>
>> >
>> > [[alternative HTML version deleted]]
>> >
>> > ______________________________________________
>> > [email protected] mailing list
>> > https://stat.ethz.ch/mailman/listinfo/r-help
>> > PLEASE do read the posting guide
>> http://www.R-project.org/posting-guide.html
>> > and provide commented, minimal, self-contained, reproducible code.
>> >
>>
>>
>>
>> --
>> Jim Holtman
>> Cincinnati, OH
>> +1 513 646 9390
>>
>> What is the problem you are trying to solve?
>>
>
>
[[alternative HTML version deleted]]
______________________________________________
[email protected] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
