Возможно, вы можете преобразовать объект anova во фрейм / таблицу данных и попробовать что-то вроде:
library(tidyverse)
library(knitr)
options(scipen=999)
library(broom)
data(mpg)
tmp <- aov(cty ~ displ, data = mpg)
df <-
anova(tmp) %>%
as_tibble()
colnames(df) <- c("Frígráður", "Fervikasumma", "Meðalfervikassumma", "F-gildi", "P-gildi")
rownames(df) <- c("Label 1", "Label 2")
df %>%
kable()
Это дает:
| | Frígráður| Fervikasumma| Meðalfervikassumma| F-gildi| P-gildi|
|:-------|---------:|------------:|------------------:|--------:|-------:|
|Label 1 | 1| 2691.064| 2691.063754| 408.2482| 0|
|Label 2 | 232| 1529.282| 6.591735| NA| NA|