1 
  as_flex_table_ex1 <-
  trial %>%
  select(trt, age, grade) %>%
  tbl_summary(by = trt,missing = "no") %>%
  add_p() %>%
  as_flex_table() %>% 
  valign(j = 1,valign = "center")


save_as_docx(as_flex_table_ex1,path = "1.docx")

现在 - 当我在 word 中打开表格时，I、II 和 III 级之间的填充非常“通风”。我怎样才能减少这种填充？我尝试使用padding(as_flex_table_ex1,padding.top=0,padding.bottom = 0,part="all")，但我真的看不出渲染的 docx 有什么不同。

4

2 回答 2

1

所以经过一番研究。这似乎可以解决问题。

as_flex_table_ex1 <-
  trial %>%
  select(trt, age, grade) %>%
  tbl_summary(by = trt,missing = "no") %>%
  add_p() %>%
  as_flex_table() %>% 
  valign(j = 1,valign = "center") 
as_flex_table_ex2 <- as_flex_table_ex1 %>% 
  hrule(rule = "exact") %>% 
  height(height=max(dim_pretty(.,part="body")$heights+0.3*max(dim_pretty(.,part="body")$heights)))



print(as_flex_table_ex2,preview="docx")

乘以 0.3 的 dim_pretty 因子是完全任意的。如果有人想找到一个自动允许不同字体和大小的清晰高度，那就太好了。

于 2020-08-19T11:25:15.867 回答
0

我遇到了同样的问题。这些是我用来尝试实现更紧凑的表格的命令（大部分您已经尝试过）。这在函数中可用gtsummary::theme_gtsummary_compact()。

x %>%
  flextable::fontsize(size = 8, part = "all") %>%
  flextable::padding(padding.top = 0, part = "all") %>%
  flextable::padding(padding.bottom = 0, part = "all")

我使用 R Markdown Word 模板取得了更大的成功，这有助于指导 Word 文档中的格式。 https://bookdown.org/yihui/rmarkdown-cookbook/word-template.html

于 2020-08-17T17:30:20.213 回答