Yet another way (not as sexy as Deepayan's):
as.vector(t(sapply(x, c)))
Steve Berman
On Fri, 27 Sep 2024 10:45:06 +0300 Eric Berger <ericjberger at gmail.com>
wrote:
> 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.sarkar at 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.4567 at
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.4567 at
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.4567
at 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
<rolfturner at 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 at 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 at 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 at 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.