r中循环中的可变长度错误

Question

我试图在r中循环以获得多个Anova结果。但是我不断收到以下错误：

Error in model.frame.default(formula = col ~ Total, data = phil_data, 
:variable lengths differ (found for 'Total') 

我不明白这是由于Anova在循环之外工作（请参阅代码）。任何帮助深表感谢。

multi.hist(phil_data[,c(7:23)],density=TRUE,freq=TRUE,bcol="cyan",main=" ") 
anovaresult <- anova(aov(x2 ~ Total, data=phil_data)) 
print(anovaresult) 
anovaresult <- anova(aov(x1 ~ Total, data=phil_data)) 
print(anovaresult) 

for(i in c(3, 7:23)){ 
    col <- colnames(phil_data)[i] 
    print(col) 
    anovaresult <- anova(aov(col~Total,data=phil_data)) 
    print(anovaresult) 
} 

Answer 1

multi.hist(phil_data[,c(7:23)],density=TRUE,freq=TRUE,bcol="cyan",main=" ") 
anovaresult <- anova(aov(x2 ~ Total, data=phil_data)) 
print(anovaresult) 
anovaresult <- anova(aov(x1 ~ Total, data=phil_data)) 
print(anovaresult) 

for(i in c(3, 7:23)){ 
    col[i] <- colnames(phil_data)[i]## add the i index 
    print(col[i]) 
    anovaresult <- anova(aov(phil_data[,col[i]]~Total,data=phil_data)) 
    print(anovaresult) 
}