R变异嵌套的小对象

Question

我想将二维小节加入另一个小节，如下所示：

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   

非常感谢您。