如何使用Rstudio在五个模块中随机进行治疗，而不重复治疗？

# 导入所需的R包
library(random)
library(dplyr)

# 准备治疗数据
治疗数据 <- data.frame(项目 = c("项目1", "项目2", "项目3", "项目4", "项目5", "项目6", "项目7", "项目8", "项目9", "项目10"))

# 确定治疗模块
模块1 <- c("项目1", "项目2", "项目3")
模块2 <- c("项目4", "项目5")
模块3 <- c("项目6", "项目7", "项目8")
模块4 <- c("项目9")
模块5 <- c("项目10")

# 进行随机治疗
治疗结果 <- data.frame(模块 = character(), 项目 = character(), stringsAsFactors = FALSE)

for (i in 1:5) {
  if (i == 1) {
    治疗项目 <- sample(模块1, 1)
    模块 <- "模块1"
  } else if (i == 2) {
    治疗项目 <- sample(模块2, 1)
    模块 <- "模块2"
  } else if (i == 3) {
    治疗项目 <- sample(模块3, 1)
    模块 <- "模块3"
  } else if (i == 4) {
    治疗项目 <- sample(模块4, 1)
    模块 <- "模块4"
  } else {
    治疗项目 <- sample(模块5, 1)
    模块 <- "模块5"
  }
  
  治疗结果 <- rbind(治疗结果, data.frame(模块 = 模块, 项目 = 治疗项目, stringsAsFactors = FALSE))
}

# 打印治疗结果
print(治疗结果)