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

Question

我在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               

然而，当我使用＆＃34; ANOVA：Single Factor＆＃34;在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