为什么Excel和R会给出不同的ANOVA输出？

我正在R中做一个简单的ANOVA，如下所示。

x1 <- c(180,45,45,200,65,150,380,250,0,0,320,100,80,0,280,20,60,300,210,0,20,0,0,260,220) x2 <- c(0,100,120,0,40,200,20,240,80,420,0,0,0,220,160,40,180,0,0,40,0,20,100,0,120) dat = data.frame(cbind(x1,x2)) colnames(dat) <- c("Column1","Column2") dat$Column2<-as.factor(dat$Column2) anova(lm(Column1~Column2,data=dat)) 

这是我得到的输出。

 Analysis of Variance Table Response: Column1 Df Sum Sq Mean Sq F value Pr(>F) Column2 11 181842 16531 1.2339 0.3548 Residuals 13 174164 13397 

但是，当我使用“ANOVA：单因子”在Excel中执行相同的ANOVA时，我得到以下结果。

Answer 1

你需要有一个数据集，其中两列是值和组：

 > dat <- stack( data.frame(x1,x2) ) > colnames(dat) <- c("Column1","Column2") > dat$Column2<-as.factor(dat$Column2) > anova(lm(Column1~Column2,data=dat)) Analysis of Variance Table Response: Column1 Df Sum Sq Mean Sq F value Pr(>F) Column2 1 23545 23544 1.8204 0.1836 Residuals 48 620806 12934