在r中的函数中生成样本数据而不重复

Question

我有以下可重现的代码：

x <- as.data.table(c(1:20))
samplefunction <- function(x) { 
if(x <= 10 ) { 
sample(35:45)
}else if(x > 10) { 
sample(50:60)
}
}

day1 <- x[,sales := sapply(x, samplefunction)]
day2 <- x[,sales := sapply(x, samplefunction)]

day1和day2都填充了销售的样本值。看起来像samplefunction返回的值会在每次迭代时重复使用。如何创建单独的数据框（day1，day2，...）并每次为销售列重新生成随机数据？ Set.Seed（）用于重复使用相同的随机生成。在某种意义上，我正在寻找相反的东西。谢谢。