对 R 中的所有变量执行 Anova答案

【问题标题】：Performing Anova for all vars in R对 R 中的所有变量执行 Anova
【发布时间】：2017-12-22 21:36:59
【问题描述】：

R 有aov-function 用于方差分析。所以如果我想执行它，我可以编写简单的代码：

df2=read.csv("C:/Users/Admin/Desktop/222.csv",sep=";", dec=",")
fit=aov(x1 ~ Q7,data=df2)
summary(fit)

如果我写了三次这段代码，我可以为每个变量执行 3 次方差分析。但是如何同时对所有三个变量执行方差分析呢？ IE。不要为每个X写这个。

df2=

structure(list(Q7 = structure(c(1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 
2L, 2L, 3L, 3L, 3L, 3L, 3L), .Label = c("A", "B", "C"), class = "factor"), 
    x1 = c(13L, 31L, 17L, 27L, 24L, 21L, 34L, 28L, 13L, 25L, 
    12L, 16L, 26L, 27L, 20L), x2 = c(32L, 29L, 16L, 27L, 27L, 
    22L, 36L, 35L, 22L, 27L, 13L, 30L, 17L, 27L, 9L), x3 = c(29L, 
    13L, 18L, 25L, 19L, 21L, 24L, 22L, 30L, 30L, 14L, 28L, 19L, 
    11L, 13L)), .Names = c("Q7", "x1", "x2", "x3"), class = "data.frame", row.names = c(NA, 
-15L))

【问题讨论】：

标签： r anova

【解决方案1】：

您可以使用reformulate() 提出要在 aov` 函数中使用的公式。

lapply(names(df2[-1]),function(x)aov(reformulate("Q7",x),data=df2))

你也可以在上面的代码中添加summary

【讨论】：

请向 OP 和未来的读者解释您的代码的作用和输出。