Arrays 使用不同的列以迭代方式创建表

我正在尝试按组创建一系列表，我希望每个表都使用不同的变量迭代运行。我还想将方差分析中的p值添加到表的底部。我能够使用aov函数和kable函数轻松地创建一个表。我认为for循环的工作原理如下：

#list of column names
varlist <- c("var1", "var2", "var3", "var4", "var5", "var6")

for (var in 1:6){
  #anova
  aov(varlist[[var]] ~ group, data=dc3) 
  #pull out pvalue for anova as string
  pval <-paste("ANOVA P-Value:", round(summary(fit)[[1]][["Pr(>F)"]][[1]], 3))
# Create Table
  Table <- dc3 %>% group_by(group) %>%
  summarise(Mean  = round(mean(varlist[[var]], na.rm = TRUE),2), SD =  round(sd(varlist[[var]], na.rm = TRUE),2))
# Add Pvalue to bottom on table
  kable(worst_arr_delays, "html") %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  add_footnote(c(pval2), notation = "symbol")

   }

#列名列表
变量列表%
总结（平均数=四舍五入（平均数（变量列表[[var]]，na.rm=TRUE），2），标准差=四舍五入（标准差（变量列表[[var]]，na.rm=TRUE），2））
#将Pvalue添加到表的底部
kable（最差的到达延迟，“html”）%>%
可缩放样式（引导选项=c（“带条纹”、“悬停”））%>%
添加脚注（c（pval2），符号=“symbol”）
}

理想情况下，这将为我提供六张类似于此的表格：

---

如果我了解您想要做什么，我认为这段代码可以为您服务

library(dplyr)
library(knitr)
library(kableExtra)

dc3 = data.frame(var1=rnorm(40,25,5),var2=rnorm(40,25,5),var3=rnorm(40,25,5),
                 var4=rnorm(40,25,5),var5=rnorm(40,25,5),var6=rnorm(40,25,5),
                 group=rep(c("gr.2","gr.3","gr.4","veh"),each=10))

res = NULL
for(i in 1:6){
fit <- aov(dc3[,i]~group,dc3)
pval <-paste("ANOVA P-Value:", round(summary(fit)[[1]][["Pr(>F)"]][[1]], 3))
# Create Table
Table <- dc3 %>% group_by(group) %>%
  summarise(Mean  = round(mean(dc3[,i],na.rm = TRUE),2), SD =  round(sd(dc3[,i], na.rm = TRUE),2))
# Add Pvalue to bottom on table
res <- kable(Table,"html") %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  add_footnote(c(pval), notation = "symbol")
print(res)
}

库（dplyr）
图书馆（knitr）
图书馆（kableExtra）
dc3=数据帧（var1=rnorm（40,25,5），var2=rnorm（40,25,5），var3=rnorm（40,25,5），
var4=rnorm（40,25,5），var5=rnorm（40,25,5），var6=rnorm（40,25,5），
组=代表（c组（“第2组”、“第3组”、“第4组”、“车辆”），各=10）
res=NULL
（我在1:6中）{
适合%
总结（平均数=四舍五入（平均数（dc3[，i]，na.rm=真），2），标准差=四舍五入（标准差（dc3[，i]，na.rm=真），2））
#将Pvalue添加到表的底部
res%
可缩放样式（引导选项=c（“带条纹”、“悬停”））%>%
添加脚注（c（pval），符号=“symbol”）
打印（res）
}