如何解决R Markdown中HTML转Word输出的表格格式异常问题？

Great question! Let's tackle both of your requests to fix the table formatting when outputting to Word:

1. Quick Fix: Adapt Your Existing kableExtra Code for Word Output #

The root issue here is that you're forcing HTML formatting with format="html" in your kable() calls—when rendering to Word, this causes unnecessary conversion that breaks cell layout. Here's how to adjust your code easily:

Key Changes: #

• Remove the format="html" parameter from kable(): Knitr will automatically use the correct format (docx) based on your output: word_document setting.
• Drop HTML-only styles like hover and responsive—these don't translate to Word.
• Replace the HTML table-splicing cat() code with a Word-friendly method for side-by-side tables (we'll use officer for this).

Modified Working Code: #

---
title: "A tale of two tables"
output: word_document
---
```{r global_options, R.options=knitr::opts_chunk$set(warning=FALSE, message=FALSE)}

library(tidyverse)
library(knitr)
library(kableExtra)
library(formattable)
library(officer)
library(magrittr)

a <- tribble(~location, ~'Month (persons)', ~'TTY (persons)', ~'TTY % change',
       'new_south_wales',1604,40328,3.3,
       'victoria',-2118,13415,3.5,
       'queensland',214,10023,3.2,
       'south_australia',1969,11787,5.0,
       'western_australia',531,1316,1.6,
       'tasmania',-887,2428,1.9,
       'northern_territory',-44,570,2.4,
       'australian_capital_territory',32,-434,-3.1,
       'australia',78,1060,4.8)

b <- tribble(~series,~Dec,~Jan,~TTY,
       'FT employed', 12700, 49800, 293200,
       'PT employed', 20700, 65900, 110100,
       'Total', 33500, 16000, 403300,
       'per cent', 0.3, 0.1, 3.3,
       'Agg hours worked', -0.8, -1.5, 0.5,
       'Part rate', 65.7, 65.6, 64.6,
       'Ue', 5.56, 5.49, 5.7)

### Creating the tables
## Federal employment table
test_federal <- kable(b, output = F) %>%
  kable_styling(c("striped", 'condensed'), full_width = F, position = 'left', font_size = 11) %>%
  add_indent(4) %>% 
  row_spec(row = 3, bold = TRUE) %>% 
  add_header_above(c(" ", 'Month (sa)' = 2, 'Year (sa)' = 1)) %>%
  as_kable_extra()

## State employment table
test_state <- kable(a, escape = FALSE, output = F) %>%
  kable_styling(c("striped", 'condensed'), full_width = F, position = 'right', font_size = 11) %>% 
  row_spec(row = 9, bold = TRUE) %>% 
  add_header_above(c("", "Dec" = 1, "Dec" = 1, "Dec" = 1)) %>%
  as_kable_extra()

# Use officer to place tables side-by-side in Word
doc <- read_docx() %>%
  body_add_par("Employment Overview", style = "Heading 1") %>%
  # Create two-column layout for side-by-side tables
  body_end_section_columns(widths = c(5, 5), space = 1) %>%
  body_add_table(test_federal$docx_table, style = "Table Grid") %>%
  body_add_table(test_state$docx_table, style = "Table Grid") %>%
  body_end_section_columns()

print(doc, target = "employment_tables.docx")

---

## 2. Better Long-Term Solution: Use `flextable` for Word-Optimized Tables
If you want a more robust, Word-native solution, `flextable` is the gold standard—it's built specifically for Word/PowerPoint output and has direct equivalents for all the `kableExtra` features you're using:

### Feature Mapping:
| `kableExtra` Function       | `flextable` Equivalent               |
|-----------------------------|--------------------------------------|
| `add_header_above()`        | `add_header_row()` + `merge_at()`    |
| `add_indent()`              | `indent()`                           |
| `row_spec(bold = TRUE)`     | `bold()`                             |

### Example Implementation:
```r
---
title: "A tale of two tables with flextable"
output: word_document
---
```{r global_options, R.options=knitr::opts_chunk$set(warning=FALSE, message=FALSE)}

library(tidyverse)
library(flextable)
library(officer)

a <- tribble(~location, ~'Month (persons)', ~'TTY (persons)', ~'TTY % change',
       'new_south_wales',1604,40328,3.3,
       'victoria',-2118,13415,3.5,
       'queensland',214,10023,3.2,
       'south_australia',1969,11787,5.0,
       'western_australia',531,1316,1.6,
       'tasmania',-887,2428,1.9,
       'northern_territory',-44,570,2.4,
       'australian_capital_territory',32,-434,-3.1,
       'australia',78,1060,4.8)

b <- tribble(~series,~Dec,~Jan,~TTY,
       'FT employed', 12700, 49800, 293200,
       'PT employed', 20700, 65900, 110100,
       'Total', 33500, 16000, 403300,
       'per cent', 0.3, 0.1, 3.3,
       'Agg hours worked', -0.8, -1.5, 0.5,
       'Part rate', 65.7, 65.6, 64.6,
       'Ue', 5.56, 5.49, 5.7)

# Federal employment table with flextable
ft_federal <- flextable(b) %>%
  # Add merged header row (matches add_header_above)
  add_header_row(values = c("", "Month (sa)", "Month (sa)", "Year (sa)"), colwidths = c(1, 2, 1)) %>%
  # Indent row 4 (matches add_indent(4))
  indent(i = 4, j = 1, indent = 10) %>%
  # Bold row 3 (matches row_spec(3, bold=TRUE))
  bold(i = 3, bold = TRUE) %>%
  # Style table
  theme_zebra() %>%
  fontsize(size = 11) %>%
  set_table_properties(layout = "autofit")

# State employment table with flextable
ft_state <- flextable(a) %>%
  add_header_row(values = c("", "Dec", "Dec", "Dec"), colwidths = c(1, 1, 1, 1)) %>%
  bold(i = 9, bold = TRUE) %>%
  theme_zebra() %>%
  fontsize(size = 11) %>%
  set_table_properties(layout = "autofit")

# Output to Word with side-by-side layout
doc <- read_docx() %>%
  body_add_par("Employment Summary", style = "Heading 1") %>%
  body_end_section_columns(widths = c(5, 5), space = 1) %>%
  body_add_flextable(ft_federal) %>%
  body_add_flextable(ft_state) %>%
  body_end_section_columns()

print(doc, target = "employment_tables_flextable.docx")

This will produce clean, properly formatted tables in Word with no unexpected cell wrapping, and gives you full control over styling for Word documents.

内容的提问来源于stack exchange，提问作者Dom