如题,如何将R的方差分析结果输出成excel文件呢。
代码
#方差分析
library(MASS)
attach(Liver0w)
Liver0w
FAs0w <- cbind(C14, C16, C161, C18, C181, C182, C183n3, C183n6,
C203n6, C204n6, C205n3, C221,
C226n3, C24)
aggregate(FAs0w, by = list(group), FUN = mean)
L0w_fit <- summary.aov(manova(FAs0w~group))
L0w_fit
#输出文件
FAS_Liver <- c("C14", "C16", "C161", "C18", "C181", "C182", "C183n3", "C183n6",
"C203n6", "C204n6", "C205n3", "C221",
"C226n3", "C24")
re_L <- data.frame(L0w_fit$` Response C14`,L0w_fit$` Response C16`,
L0w_fit$` Response C161`,L0w_fit$` Response C18`,
L0w_fit$` Response C181`,L0w_fit$` Response C182`,
L0w_fit$` Response C183n3`,L0w_fit$` Response C183n6`,
L0w_fit$` Response C203n6`,L0w_fit$` Response C204n6`,
L0w_fit$` Response C205n3`,L0w_fit$` Response C221`,
L0w_fit$` Response C226n3`,L0w_fit$` Response C24`)
L0w <- cbind(FAS_Liver, re_L)
L0w
write.table(re_L, file = "Liver0w.xls", sep="\t",row.names=TRUE)
结果如下图:
我的想法是按照不同脂肪酸(C14到C24)来将结果输出到xls文件里……但是研究了半天都不行啊,输出的结果不是我想要的。
我想要类似于这样的:
大神,求助啊。