為組 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)))

Answer 2

data.table一個選項：

setDT(data)[, random := sample(100, 1), ID]

Answer 3

不知道為什么我們需要這個，如果我們試圖匿名化 ID（ mtcars示例數據中的cyl列），那么這對我來說是非常隨機的：

library(dplyr)

mtcars %>% 
  mutate(random = as.integer(as.factor(cyl)))