如何在R中自动执行嵌套变量的t-test？

install.packages("tidyverse")
install.packages("broom")
install.packages("purrr")

library(tidyverse)
library(broom)
library(purrr)

# 假设你的数据框为df，包含了group和value两列

# 使用nest()函数将数据框按照group进行分组
nested_data <- df %>% nest(data = c(value))

# 使用map()函数对每个分组应用t.test()函数
t_test_results <- nested_data %>%
  mutate(t_test = map(data, ~t.test(.x$value))) %>%
  mutate(tidy_results = map(t_test, tidy))

# 查看结果
t_test_results