kableExtra
似乎与Word输出不兼容,您可以尝试其他选择。范例-
flextable::regulartable
```{r}
MT <- tibble(Session = c(1,1,1,1,1,1,2,2,2,2),
scores = rep('Not', 10),
B_A = rep('A', 10))
t <- MT %>%
tabyl(Session, scores, B_A, show_missing_levels = FALSE) %>%
adorn_totals(where = "col")
flextable::regulartable(t$A)