Я хотел бы соединить двухмерный тиббл с другим следующим образом:
library(tidyverse)
set.seed(1)
tib1 <- tibble(locid = seq(2))
tib2 <- tibble(x=runif(1), y = x * 2)
Я пробовал следующее:
tib3 <- tib1 %>%
mutate(z = list(tib2)) %>%
unnest
Однако это приводит к:
locid x y
1 0.2655087 0.5310173
2 0.2655087 0.5310173
т.е. значения повторяются.Я хотел бы сделать так, чтобы tib2 пересэмплировался для каждого ряда.Как это возможно?
Ожидаемый результат будет:
locid x y
1 0.2655087 0.5310173
2 0.1848823 0.3697645
Большое спасибо.