如何调整RMarkdown解决生成PDF时表格超边距、图表轴标签重叠问题

1. 表格超出页边距问题 #

根据你使用的表格生成包，选择对应调整方案即可：

• 若使用kableExtra生成表格，可通过scale_down参数自动缩放表格适配页宽：

library(kableExtra)
iwalk(tables_models, ~ {
  print(knitr::kable(.x, format = "latex") %>%
    kable_styling(latex_options = "scale_down", full_width = FALSE))
})

• 若使用flextable生成表格，调用autofit()自动适配列宽：

iwalk(tables_models, ~ cat(knitr::knit_print(flextable(.x) %>% autofit())))

• 通用适配方案：通过LaTeX的adjustwidth环境扩展临时页边距，首先在RMarkdown的yaml头部引入依赖包：

output: 
  pdf_document:
    extra_dependencies: ["changepage"]

再修改表格输出代码：

iwalk(tables_models, ~ {
  cat("\\begin{adjustwidth}{-1cm}{-1cm}\n")
  cat(knitr::knit_print(.x))
  cat("\\end{adjustwidth}\n")
})

可根据实际页面情况调整{-1cm}{-1cm}的数值控制左右扩展的宽度。

2. 图表坐标轴标签重叠问题 #

你使用的ggboxplot本质为ggplot对象，可通过添加图层参数解决重叠问题，可按需选择以下方案组合使用：

• 旋转x轴标签避免重叠，是最常用的解决方案：
  在打印图表前添加主题设置即可：

print(
  p 
  + stat_compare_means(comparisons = my_comparisons, method = 't.test', 
                       label = "p.signif", ref.group = 'NEG-CTR')
  + theme(axis.text.x = element_text(angle = 45, hjust = 1, vjust = 1, size = 9))
)

• 若为y轴标签过长导致重叠，可设置标签自动换行+缩小字号：

print(
  p 
  + stat_compare_means(comparisons = my_comparisons, method = 't.test', 
                       label = "p.signif", ref.group = 'NEG-CTR')
  + scale_y_continuous(labels = function(x) stringr::str_wrap(x, width = 12))
  + theme(axis.text.y = element_text(size = 8))
)

• 因分面导致横向过挤的话，可调整分面排布为多行，修改ggboxplot的facet.by参数：

facet.by = "SES", short.panel.labs = FALSE, nrow = 2

• 全局控制图表宽度适配页面，修改绘图代码块的头部参数：

```{r echo = FALSE, out.width = "95%", fig.align = "center"}
# 你的原有绘图for循环代码放在此处

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