Question

这是我目前的代码：

dat = data.frame(matrix(c(rnorm(20), rep(c(1:5),10), rep(seq(1,4),5)), ncol=3))
colnames(dat)<- c('var1','var2','var3')
ggplot(dat, aes(y=var1,x=var2,colour=var3)) + 
    geom_point() + geom_smooth(method='aov',se=F)

我想为每种颜色显示aov行。我怎么能这样做？

此外，我想提取文本文件中显示的行的summary(aov())。并且还提取了这些aov()假设的测试...换句话说，我想提取fligner.test(dat$var1~var2)和fligner.test(dat$var1~var3)以及shapiro.test(residuals(aov(var1~var2*var3)))。

有没有办法通过利用ggplot包来完成所有这些工作，还是我必须通过for循环操作所有数据？

Answer 1

要为每个var3设置单独的行，应将其设置为ggplot()函数内的因子。

ggplot(dat,aes(y=var1,x=var2,colour=as.factor(var3))) + 
   geom_point() + geom_smooth(method='aov',se=F)

颜色特定回归线 - 在文本文件上提取aov，shapiro和fligner

1 个答案: