6

我创建了一些表格（使用knitr& kableExtra），这些表格在我使用时效果很好，output: html_document但是当我尝试使用output: word_document表格中每个单元格的内容来渲染它们时，表格中的每个单元格的内容都会打印到 Word 文档中的连续新行上。

是否有：

  1. 一种重新格式化表格以便在设置时复制它们的简单方法output: word_document？或者
  2. 一个包可以制作 Word 友好的表格，使我能够复制kableExtra::add_header_above和kableExtra::indent_row功能？

生成的表格的代表output: word_document

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

```{r two-tables, results='asis', echo=FALSE}
library(tidyverse)
library(knitr)
library(kableExtra)
library(formattable)

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, format = "html", output = F) %>%
  kable_styling(c("striped", 'hover', 'condensed', 'responsive'), 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))

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

cat(
  c('<table style="margin: auto"><tr valign="top"><td style="padding-right: 2cm">', 
    test_federal, 
    '</td>', 
    '<td>', 
    test_state, 
    '</td></tr></table>'
  ), 
  sep = ''
)
```
4

0 回答 0