An embedded and charset-unspecified text was scrubbed... Name: not available URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20130111/2c4b7582/attachment-0001.pl>
Access comonents in lists of lists
3 messages · Bjoern Helm, Ista Zahn, Rolf Turner
lapply(lst, function(x) return(x[[2]]))
On Fri, Jan 11, 2013 at 6:40 AM, Bjoern Helm <bjoern.helm at tu-dresden.de> wrote:
Dear R users,I have a list of equally structured lists, how can I access e.g. all 2nd compontents in those sub-lists?An example:lst <- list(rep(list(1:3),3), rep(list(4:6),3))> lst[[1]][[1]][[1]][1] 1 2 3[[1]][[2]][1] 1 2 3[[1]][[3]][1] 1 2 3[[2]][[2]][[1]][1] 4 5 6[[2]][[2]][1] 4 5 6[[2]][[3]][1] 4 5 6What I want to get are all second sub-lists, in this case:[[1]][[2]][1] 1 2 3and[[2]][[2]][1] 4 5 6many thanksBj?rn -- View this message in context: http://r.789695.n4.nabble.com/Access-comonents-in-lists-of-lists-tp4655224.html Sent from the R help mailing list archive at Nabble.com. [[alternative HTML version deleted]]
______________________________________________ R-help at r-project.org 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.
On 01/12/2013 12:40 AM, Bjoern Helm wrote:
Dear R users,I have a list of equally structured lists, how can I access e.g. all 2nd compontents in those sub-lists?An example:lst <- list(rep(list(1:3),3), rep(list(4:6),3))> lst[[1]][[1]][[1]][1] 1 2 3[[1]][[2]][1] 1 2 3[[1]][[3]][1] 1 2 3[[2]][[2]][[1]][1] 4 5 6[[2]][[2]][1] 4 5 6[[2]][[3]][1] 4 5 6What I want to get are all second sub-lists, in this case:[[1]][[2]][1] 1 2 3and[[2]][[2]][1] 4 5 6
Your email was/is a bit hard to read .... but if I understand correctly,
what
you want is
lst2 <- lapply(lst,function(x){x[[2]]})
See ?lapply. Also associated functions like tapply() and sapply(). Very
useful gadgets. And if you really get hooked on such functionality, you
might want to have a look at the "plyr" package.
cheers,
Rolf Turner