Attaching a same dataframe for each row in the original dataframe

Asked Mar 28 '17 at 00:47

Active Mar 28 '17 at 01:11

Viewed 44 times

I have a dataframe that looks like this:

     First  Last
1  Aamira Chaudhry
2  Abby   Adams
3  Ada    Sarmento




structure(list(First = c("Aamira", "Abby", "Ada"), `Last ` = c("Chaudhry", 
    "Adams", "Sarmento")), .Names = c("First", "Last "), row.names = c(NA, 
    -3L), class = c("tbl_df", "tbl", "data.frame"))

Is the code.

I also have a dataframe

middle <- c("a", "b", "c")

I want to attach the a, b, and c for each row in the original dataframe. I want to end up with something like this:

    First Last    Middle
1  Aamira Chaudhry  a
2  Aamira Chaudhry  b
3  Aamira Chaudhry  c
4  Abby   Adams     a
5  Abby   Adams     b
6  Abby   Adams     c
7  Ada    Sarmento  a
8  Ada    Sarmento  b
9  Ada    Sarmento  c

I tried looking up stackoverflow but didn't really work out. How should I do this?

Thanks

asked Mar 28 '17 at 00:47

jun.yoon77

2

`dat = as.data.frame(dat) ; cbind(dat[rep(rownames(dat), each=length(middle)), ], middle)` – user20650 Mar 28 '17 at 00:50
1

wow. works like magic! Thanks! – jun.yoon77 Mar 28 '17 at 00:52
2

Possible duplicate of [Repeat rows of a data.frame](http://stackoverflow.com/questions/11121385/repeat-rows-of-a-data-frame) or http://stackoverflow.com/questions/2894775/replicate-each-row-of-data-frame-and-specify-the-number-of-replications-for-each – user20650 Mar 28 '17 at 00:54
`tidyr::crossing(df, middle)` – alistaire Mar 28 '17 at 00:56
or `library(tidyverse); df %>% mutate(Middle = list(middle)) %>% unnest()` – alistaire Mar 28 '17 at 01:03
3

Just `merge(middle, df)` will do it. – Rich Scriven Mar 28 '17 at 01:06

Attaching a same dataframe for each row in the original dataframe

0 Answers0