r - 使用多列输出变异 rnorm

Question

我想使用 rnorm() 创建随机变量在小标题的单独列中指定平均值和标准差

n <- 2
ti <- tibble(Name = letters[1:10], mean = 1:10, sd = 1:10)

如何使用 mutate 将 n 列添加到带有 rnorm(n, mean, sd) 输出的小标题中每行？

(我知道我可以在基础 R 中做到这一点，但很想知道使用 dplyr 是如何工作的)

Answer 1

一 dplyr和 tidyr选项可以是:

ti %>%
 rowwise() %>%
 mutate(col_rnorm = list(setNames(rnorm(n, mean, sd), c("col1", "col2")))) %>%
 unnest_wider(col_rnorm)

  Name   mean    sd  col1    col2
   <chr> <int> <int> <dbl>   <dbl>
 1 a         1     1 -1.73  1.18  
 2 b         2     2  3.86  0.0943
 3 c         3     3  3.54 -0.502 
 4 d         4     4  3.21 -3.90  
 5 e         5     5  3.61  9.48  
 6 f         6     6  7.07 16.1   
 7 g         7     7 17.4   5.95  
 8 h         8     8  5.32 13.6   
 9 i         9     9 19.2  19.8   
10 j        10    10  9.67 11.3