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)
}