r - 导出 TukeyHSD 结果

Question

我无法导出我的 TukeyHSD 结果，以便当我在 Excel 等中打开结果时它们在单元格中分开。我尝试使用 write.csv() 但它说：

cannot coerce class "c("TukeyHSD", "multicomp")" to a data.frame

如何以一种我可以将它们复制并粘贴到 Excel 工作表中的方式捕获我的 TukeyUSD 结果？

Answer 1

TukeyHSD返回一个“TukeyHSD”类的对象。您可以使用运算符从“TukeyHSD”对象中提取结果表$。然后，您可以以任何您认为合适的方式导出或修改表格。

fm1 <- aov(breaks ~ wool + tension, data = warpbreaks)
res <- TukeyHSD(fm1, "tension", ordered = TRUE)
as.data.frame(res$tension)
#          diff        lwr      upr       p adj
# M-H  4.722222 -4.6311985 14.07564 0.447421021
# L-H 14.722222  5.3688015 24.07564 0.001121788
# L-M 10.000000  0.6465793 19.35342 0.033626219

Answer 2

这个对我有用

ANOVA_Tc<-aov(Concentration~ Sample, data= Tc)

summary(ANOVA_Tc)

TKHSD_Tc <- TukeyHSD(ANOVA_Tc)

TK<-(TKHSD_Tc)

TK_data<-as.data.frame(TK[1]) # the [1] locates the part of the output to be exported

write.csv(TK_data, 'TK_data.csv')