以专业方式在 R markdown 中显示 aov() 和 tukeyHSD() 结果的 R 函数
R function for displaying results of aov() and tukeyHSD() in R markdown in professional way
不幸的是，我有一些数据是 PHI，我无法共享（以使其可重现），但我想将其显示在 R markdown 的 PDF 文档中。
目前会显示我的结果，但它们看起来不太好，即：
我希望显示完全相同的数字，但只是“更漂亮”。旁边没有“##”，在 R markdown
中只有一个漂亮的 table
我显然用谷歌搜索了它，我 运行 跨 this one or this one
等网站
但是使用这些方法中的许多方法似乎都有缺点。它要么使用不同的代码来最初进行方差分析（我使用 aov()，其中一些网站使用 lm() 并且它似乎不适用于 aov() ），要么它对 Tukey 结果没有帮助.... 或者当我加载包时，它隐藏了我在不同包中需要的重要功能（库（papeR）掩码总结，并从 dplyr() 总结）。
我是否缺少一种简单的方法来显示这些结果'cleanly'？
我不知道专业人士如何格式化这些东西，但我认为最好的解决方案是 broom + any table package.
例如：
```{r warning = FALSE, echo = FALSE, message=FALSE}
library(broom)
library(flextable)
fm1 <- aov(breaks ~ wool + tension, data = warpbreaks)
thsd <- TukeyHSD(fm1, "tension", ordered = TRUE)
xx <- tidy(thsd)
flextable(xx)
```
我觉得很好看。
不幸的是，我有一些数据是 PHI，我无法共享（以使其可重现），但我想将其显示在 R markdown 的 PDF 文档中。
目前会显示我的结果，但它们看起来不太好，即：
我希望显示完全相同的数字，但只是“更漂亮”。旁边没有“##”，在 R markdown
中只有一个漂亮的 table我显然用谷歌搜索了它，我 运行 跨 this one or this one
等网站但是使用这些方法中的许多方法似乎都有缺点。它要么使用不同的代码来最初进行方差分析（我使用 aov()，其中一些网站使用 lm() 并且它似乎不适用于 aov() ），要么它对 Tukey 结果没有帮助.... 或者当我加载包时，它隐藏了我在不同包中需要的重要功能（库（papeR）掩码总结，并从 dplyr() 总结）。
我是否缺少一种简单的方法来显示这些结果'cleanly'？
我不知道专业人士如何格式化这些东西，但我认为最好的解决方案是 broom + any table package.
例如：
```{r warning = FALSE, echo = FALSE, message=FALSE}
library(broom)
library(flextable)
fm1 <- aov(breaks ~ wool + tension, data = warpbreaks)
thsd <- TukeyHSD(fm1, "tension", ordered = TRUE)
xx <- tidy(thsd)
flextable(xx)
```
我觉得很好看。