在 r 中创建具有随机变化的新数据框

Question

我想从现有数据框创建一个新数据框，其中每个值都是一个随机变量。更具体地说，在新数据帧中，值 (i,j) 是一个随机变量，它遵循正态分布，现有数据帧的平均值为 (i,j)，标准差为 0.1*(i,j)。

下面我已经为数据框的一列做了这个。有没有办法对数据框的所有列有效地做到这一点？并使新数据框与现有数据框具有相同的列名？

#data frame with 10 variables
camrysales <- read_excel("camrysales.xlsx", sheet = "10var", skip = 1)

#randomizing Units Sold column
r.camrysales <- rnorm(nrow(camrysales), mean = camrysales$`Units Sold`, sd = 0.1*camrysales$`Units Sold`)

Answer 1

您可以使用lapply 执行此操作-

r.camrysales <- camrysales
r.camrysales[] <- lapply(camrysales, function(x)  rnorm(nrow(camrysales), mean = x, sd = 0.1*x))
r.camrysales

或者在dplyr 中使用across -

library(dplyr)
r.camrysales <- camrysales %>% mutate(across(.fns = ~rnorm(n(), ., 0.1 * .)))