R 如何对所有数据列进行单向方差分析？

我想用不同站点的丰富数据进行方差分析测试，我想知道编写脚本的正确方法是什么，因为所有具有aov函数的示例都与公式相关，但我不确定该公式是否考虑了所有比较其均值的列

以下数据是我尝试进行测试的方法的一个示例。但是列中没有分类变量，因此，我确信这种方式是错误的

谢谢你的帮助

set.seed(200)
D <- data.frame(a=sample(15),b=sample(15), c=sample(15))

A<-aov(a~c, data = D)

set.seed（200）
D你需要先做

下面使用一个外部包，
restrape2
，将数据从宽格式重新格式化为长格式

molten <- reshape2::melt(D)
head(molten)

model <- lm(value ~ variable, data = molten)
anova(model)

您可以发布样本数据吗？请使用
dput（df）
的输出编辑问题。或者，如果dput（头部（df，20））的输出太大
。（
df
是数据集的名称。）