我正在使用bookdown::pdf_document2。一些期刊要求将所有交互项格式化为Term A * Term B或Term A x Term B，而不是Term A : Term BR 的 ANOVA 表中的默认格式。
library(emmeans)
warp.lm <- lm(breaks ~ wool * tension, data = warpbreaks)
joint_tests(warp.lm)
model term df1 df2 F.ratio p.value
wool 1 48 3.765 0.0582
tension 2 48 8.498 0.0007
wool:tension 2 48 4.189 0.0210
我想wool:tension用wool * tension或wool x tension和 knit 替换为 .pdf。我正在寻找一种可重复使用的解决方案，用于许多手稿，这样我就不必一直查找和替换它们。我还没有找到一个可以模仿的例子。提前谢谢。
答案1
---
output: pdf_document
---
```{r,echo=F}
library(emmeans)
warp.lm <- lm(breaks ~ wool * tension, data = warpbreaks)
x <- as.data.frame(joint_tests(warp.lm))
x[[1]] <- as.character(x[[1]])
x[[1]][3] <- paste0(x[[1]][1]," $\\times$ ",x[[1]][2])
knitr::kable(x)
```