Ресэмплинг и объединение данных

Question

Рассмотрим следующий набор данных:

d1 <- c(2, 3, 8)
d2 <- data.frame(d1)
d1 <- c(1, 7, 9, 10)
d3 <- data.frame(d1)

Теперь я хочу случайным образом нарисовать 3 наблюдения (без замены) из d3 3 раза, и каждый раз, когда я хочу объединить его с d2. Поэтому у меня должно быть три объединенных фрейма данных с 6 наблюдениями.

Я пробовал с:

for (r in 1:3)
{
  sam <- sample(1:4, 3, replace = FALSE)

  merge <- rbind(d2, d3[sam])
}

Но это не работает. Кто-нибудь может мне помочь?

Answer 1

Вы можете попробовать

library(tidyverse)
d1 <- data.frame(d1=c(2, 3, 8))
d2 <- data.frame(d1=c(1, 7, 9, 10))
1:3 %>% 
  map(~sample_n(d2, 3) %>% 
      bind_cols(d1))
[[1]]
  d1 d11
1  1   2
2  7   3
3  9   8

[[2]]
  d1 d11
1 10   2
2  1   3
3  7   8

[[3]]
  d1 d11
1  9   2
2  7   3
3 10   8