如何在r中随机多次子集数据集？

# 创建一个包含10个元素的向量
data <- 1:10

# 设置随机数种子，以确保结果可重复
set.seed(123)

# 随机选择3个元素的子集，不允许重复选择
subset1 <- sample(data, size = 3, replace = FALSE)
print(subset1)

# 随机选择5个元素的子集，允许重复选择
subset2 <- sample(data, size = 5, replace = TRUE)
print(subset2)

# 随机选择10个元素的子集，允许重复选择
subset3 <- sample(data, size = 10, replace = TRUE)
print(subset3)

[1]  3  2 10
[1]  9  3  9  4  5
[1]  8  6  7  9  6  2  2  9  4  7