在R中按ID随机分配已建立的值

data <- data.frame(ID = c(1, 2, 3, 4, 5), Value = c(10, 20, 30, 40, 50))

shuffle <- function(df) {
  df[sample(nrow(df)), ]
}

library(dplyr)

# 创建数据框
data <- data.frame(ID = c(1, 2, 3, 4, 5), Value = c(10, 20, 30, 40, 50))

# 定义shuffle函数
shuffle <- function(df) {
  df[sample(nrow(df)), ]
}

# 按ID分组并随机分配值
result <- data %>%
  group_by(ID) %>%
  mutate(RandomValue = sample(data$Value))

# 打印结果
print(result)