Фрейм данных попеременно связывает строки в R

Question

У меня есть два фрейма данных, которые имеют одинаковые столбцы и одинаковое количество строк.

Я хочу создать новый фрейм данных, который содержит оба фрейма данных, но строки чередуются поочередно.Он должен занять одну строку из первого Фрейма данных и одну строку из второго Фрейма данных, пока не будет построен весь новый Фрейм данных.

Я попытался использовать rbind() без удачи.Мне нужно решение, которое не включает установку новых пакетов R.

Изображение для демонстрации:

РЕДАКТИРОВАТЬ: Мое числостроки являются динамическими и могут быть очень большими.Кроме того, мне нужно решение, которое не зависит от имен столбцов, поскольку структура также является динамической.Я знаю, что каждый фрейм данных имеет одинаковую структуру каждый раз.

Answer 1

Попробуйте:

rbind(df1,df2)[rep(seq_len(nrow(df1)),each=2)+c(0,nrow(df1)),]

Пример:

set.seed(1)
df1<-as.data.frame(matrix(runif(20),ncol=4))
#         V1         V2        V3        V4
#1 0.2655087 0.89838968 0.2059746 0.4976992
#2 0.3721239 0.94467527 0.1765568 0.7176185
#3 0.5728534 0.66079779 0.6870228 0.9919061
#4 0.9082078 0.62911404 0.3841037 0.3800352
#5 0.2016819 0.06178627 0.7698414 0.7774452
df2<-as.data.frame(matrix(runif(20),ncol=4))
#         V1         V2        V3        V4
#1 0.9347052 0.38611409 0.4820801 0.6684667
#2 0.2121425 0.01339033 0.5995658 0.7942399
#3 0.6516738 0.38238796 0.4935413 0.1079436
#4 0.1255551 0.86969085 0.1862176 0.7237109
#5 0.2672207 0.34034900 0.8273733 0.4112744
rbind(df1,df2)[rep(seq_len(nrow(df1)),each=2)+c(0,nrow(df1)),]
#          V1         V2        V3        V4
#1  0.2655087 0.89838968 0.2059746 0.4976992
#6  0.9347052 0.38611409 0.4820801 0.6684667
#2  0.3721239 0.94467527 0.1765568 0.7176185
#7  0.2121425 0.01339033 0.5995658 0.7942399
#3  0.5728534 0.66079779 0.6870228 0.9919061
#8  0.6516738 0.38238796 0.4935413 0.1079436
#4  0.9082078 0.62911404 0.3841037 0.3800352
#9  0.1255551 0.86969085 0.1862176 0.7237109
#5  0.2016819 0.06178627 0.7698414 0.7774452
#10 0.2672207 0.34034900 0.8273733 0.4112744

Answer 2

с tidyverse и использованием данных @Sotos:

d2 <- data.frame(a = c(4, 6, 8), b = c(letters[5:7]), stringsAsFactors = FALSE)
d1 <- data.frame(a = c(1, 2, 3), b = c(letters[1:3]), stringsAsFactors = FALSE)

library(tidyverse)
lst(d1,d2) %>%
  map(rowid_to_column) %>% # add rowid to both tables
  bind_rows %>%            # bind
  arrange(rowid) %>%       # sort by id
  select(-rowid)           # clean up

#   a b
# 1 1 a
# 2 4 e
# 3 2 b
# 4 6 f
# 5 3 c
# 6 8 g

А вот базовая альтернатива

do.call(rbind,
        Map(rbind,
            split(d1,seq(nrow(d1))),
            split(d2,seq(nrow(d2))))
        )
#      a b
# 1.1  1 a
# 1.2  4 e
# 2.2  2 b
# 2.21 6 f
# 3.3  3 c
# 3.31 8 g

Answer 3

Вы можете использовать mapply с rbind, т.е.

d2 <- data.frame(a = c(4, 6, 8), b = c(letters[5:7]), stringsAsFactors = FALSE)
d1 <- data.frame(a = c(1, 2, 3), b = c(letters[1:3]), stringsAsFactors = FALSE)

mapply(rbind, d1, d2)
#      a   b  
#[1,] "1" "a"
#[2,] "4" "e"
#[3,] "2" "b"
#[4,] "6" "f"
#[5,] "3" "c"
#[6,] "8" "g"