R语言分层抽样求exp

R语言中可以使用以下代码进行分层抽样：

# 创建一个数据框
df <- data.frame(
  group = c("A", "A", "A", "B", "B", "B", "C", "C", "C"),
  value = c(1, 2, 3, 4, 5, 6, 7, 8, 9)
)

# 对每个组进行分层抽样，抽取2个样本
set.seed(123)
sampled_df <- df %>% group_by(group) %>% sample_n(2)

# 计算样本均值
mean(sampled_df$value)

其中，df是一个包含两列数据的数据框，第一列是分层变量，第二列是数值变量。使用group_by函数对分层变量进行分组，然后使用sample_n函数对每个组进行抽样，抽取指定数量的样本。最后可以使用mean函数计算样本均值。