r - 为组 R 生成随机数

Question

我想为组生成相同的随机数。不幸的是，我的以下代码为每一行生成随机数。

randomised <- data %>%
  group_by(`ID`)%>%
  mutate(random = sample(1:100,n(), replace = TRUE))

感谢任何帮助。

Answer 1

您应该只从 sample 中选择 1 个值，该值将被回收用于组中的所有值。

library(dplyr)
data %>% group_by(ID)%>% mutate(random = sample(100,1))

或者在基础 R 中:

data$random <- with(data, ave(seq_along(ID), ID,FUN = function(x) sample(100, 1)))