[R] How to get names of a list into df:s?

[Martin Elff]

On Thursday 21 February 2008 (19:22:40), Lauri Nikkinen wrote:
> R users,
>
> I have a simple lapply question.
>
> g <- list(a=1:3, b=4:6, c=7:9)
> g <- lapply(g, function(x) as.data.frame(x))

> And I would like to have
>
> $a
>   x var1
> 1 1    a
> 2 2    a
> 3 3    a
>
> $b
>   x var1
> 1 4    b
> 2 5    b
> 3 6    b
>
> $c
>   x var1
> 1 7    c
> 2 8    c
> 3 9    c

The following seems to work:

sapply(names(g), 
	function(n) 
		cbind(
			g[[n]], 
			var1 = rep(n,each=nrow(g[[n]]))
		),
		simplify=FALSE)



Best,
Martin