在R中按组抽取不同大小n的k个样本

# 创建一个示例数据框
data <- data.frame(
  group = rep(LETTERS[1:3], each = 10),
  value = rnorm(30)
)

# 定义每个组别需要抽取的样本个数
n <- 5

# 定义需要抽取的样本组别个数
k <- 2

# 按组抽取不同大小n的k个样本
samples <- lapply(split(data, data$group), function(x) x[sample(nrow(x), n), ])
result <- do.call(rbind, samples)

# 打印结果
print(result)

# 导入dplyr包
library(dplyr)

# 创建一个示例数据框
data <- data.frame(
  group = rep(LETTERS[1:3], each = 10),
  value = rnorm(30)
)

# 定义每个组别需要抽取的样本个数
n <- 5

# 定义需要抽取的样本组别个数
k <- 2

# 按组抽取不同大小n的k个样本
result <- data %>%
  group_by(group) %>%
  sample_n(n) %>%
  ungroup()

# 打印结果
print(result)