从R中嵌套列表中的每个列表中采样1个元素，以创建样本组

# 嵌套列表
nested_list <- list(
  list(a = 1, b = 2, c = 3),
  list(d = 4, e = 5, f = 6),
  list(g = 7, h = 8, i = 9)
)

# 采样函数
sample_from_nested_list <- function(nested_list) {
  sampled_list <- list()
  for (i in 1:length(nested_list)) {
    sampled_list[[i]] <- sample(nested_list[[i]], 1)
  }
  return(sampled_list)
}

# 采样结果
sampled_list <- sample_from_nested_list(nested_list)