R 创建多个方差分析并将结果转换为数据帧

R 创建多个方差分析并将结果转换为数据帧,r,dataframe,anova,R,Dataframe,Anova,我下面有两个因子数据和两个数值数据,我想对它们的每一个组合进行方差分析测试。我还需要他们都在数据框,以便我可以输入到excel中。我很难循环它们。多谢各位 df <- data.frame(age_group=rep(c("1","2","3"),10),civil_status=rep(c("1","2"),15),Happy=sample(30, replace = F),GoodWork=sample(30, replace = F) ) age_happy <-

我下面有两个因子数据和两个数值数据,我想对它们的每一个组合进行方差分析测试。我还需要他们都在数据框,以便我可以输入到excel中。我很难循环它们。多谢各位

    df <- data.frame(age_group=rep(c("1","2","3"),10),civil_status=rep(c("1","2"),15),Happy=sample(30, replace = F),GoodWork=sample(30, replace = F) )


age_happy <- aov(Happy~age_group,data=df)
summary(age_happy)
TukeyHSD(age_happy)

df我写这段代码是为了帮助我缩短时间。我查看代码,然后在excel中复制粘贴,但似乎不会显示摘要

    anova_loop <- function(numeric_group,factor_group,data_group){
  group_anova <- aov(numeric_group~factor_group,data=theData2)
  print(summary(group_anova))

 group_Tukey<- TukeyHSD(group_anova, "factor_group", ordered = TRUE) 
  df_Tukey <- data.frame(group_Tukey$factor_group)


}
anova\u循环