编写一个for循环，在r中自动创建数据集的子集

# 创建一个数据集
data <- data.frame(
  id = 1:10,
  value = rnorm(10)
)

# 创建一个空的列表，用于存储子集
subsets <- list()

# 使用for循环创建数据集的子集
for (i in 1:10) {
  subset <- data[data$id == i, ]
  subsets[[i]] <- subset
}

# 打印子集
for (i in 1:10) {
  print(subsets[[i]])
}