v <- as.numeric(matrix(unlist(x),ncol=5,byrow=TRUE)) v [1] 7 2 6 13 5 9 1 14 15 4 8 12 10 11 3
On Fri, Sep 27, 2024 at 8:33 AM Deepayan Sarkar <deepayan.sar...@gmail.com> wrote: > > > unsplit(x, f) > [1] 7 2 6 13 5 9 1 14 15 4 8 12 10 11 3 > > Is more general (works if the subgroups are imbalanced), and hopefully more > sexy as well :-) > > Best, > -Deepayan > > > On Fri, 27 Sept 2024 at 10:11, Bert Gunter <bgunter.4...@gmail.com> wrote: > > > ... And, in fact, I just realized that > > > > c(do.call(rbind, x)) > > > > is even better. > > > > -- Bert > > > > > > On Thu, Sep 26, 2024 at 9:26 PM Bert Gunter <bgunter.4...@gmail.com> > > wrote: > > > > > Sorry, hit send by accident. > > > The 2-line version is: > > > > > > x <- do.call(rbind, x) > > > dim(x) <- NULL > > > > > > Cheers, > > > Bert > > > > > > On Thu, Sep 26, 2024 at 9:23 PM Bert Gunter <bgunter.4...@gmail.com> > > > wrote: > > > > > >> How about: > > >> as.vector(do.call(rbind,x)) > > >> > > >> Cheers, > > >> Bert > > >> > > >> > > >> > > >> > > >> However, I much prefer a 2 line version: > > >> > > >> On Thu, Sep 26, 2024 at 8:56 PM Rolf Turner <rolftur...@posteo.net> > > >> wrote: > > >> > > >>> > > >>> I have (toy example): > > >>> > > >>> x <- list(`1` = c(7, 13, 1, 4, 10), > > >>> `2` = c(2, 5, 14, 8, 11), > > >>> `3` = c(6, 9, 15, 12, 3)) > > >>> and > > >>> > > >>> f <- factor(rep(1:3,5)) > > >>> > > >>> I want to create a vector v of length 15 such that the entries of v, > > >>> corresponding to level l of f are the entries of x[[l]]. I.e. I want > > >>> v to equal > > >>> > > >>> c(7, 2, 6, 13, 5, 9, 1, 14, 15, 4, 8, 12, 10, 11, 3) > > >>> > > >>> I can create v "easily enough", using say, a for-loop. It seems to me, > > >>> though, that there should be sexier (single command) way of achieving > > >>> the desired result. However I cannot devise one. > > >>> > > >>> Can anyone point me in the right direction? Thanks. > > >>> > > >>> cheers, > > >>> > > >>> Rolf Turner > > >>> > > >>> -- > > >>> Honorary Research Fellow > > >>> Department of Statistics > > >>> University of Auckland > > >>> Stats. Dep't. (secretaries) phone: > > >>> +64-9-373-7599 ext. 89622 > > >>> Home phone: +64-9-480-4619 > > >>> > > >>> ______________________________________________ > > >>> R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see > > >>> https://stat.ethz.ch/mailman/listinfo/r-help > > >>> PLEASE do read the posting guide > > >>> https://www.R-project.org/posting-guide.html > > >>> and provide commented, minimal, self-contained, reproducible code. > > >>> > > >> > > > > [[alternative HTML version deleted]] > > > > ______________________________________________ > > R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see > > https://stat.ethz.ch/mailman/listinfo/r-help > > PLEASE do read the posting guide > > https://www.R-project.org/posting-guide.html > > and provide commented, minimal, self-contained, reproducible code. > > > > [[alternative HTML version deleted]] > > ______________________________________________ > R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide https://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. ______________________________________________ R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide https://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.
