嘿，我太懂这种宽表格挤成一团、字体小到看不清的痛苦了！不用手动把数据框拆成3份，咱们可以用kableExtra自带的工具自动把宽表格拆成连续的子表格，既保持数据完整性，又保证可读性。

方法1：用split_table()自动拆分列 #

kableExtra的split_table()函数可以帮你按指定列数把宽表格拆成多个连续的子表格，每个子表格都会保留表头，完美解决字体过小的问题。

修改后的代码： #

library(knitr)
library(readr)
library(kableExtra)

dat_url <- 'https://gender-pay-gap.service.gov.uk/viewing/download-data/2019'
dat <- read_csv(dat_url)

# 按每10列拆分表格（可根据你的需求调整per_page参数）
kable(head(dat), caption='Sample Data: 6 rows', booktabs=TRUE, linesep="") %>%
  kable_styling(latex_options = c('striped')) %>%  # 去掉scale_down，改用拆分
  split_table(per_page = 10)

关键说明： #

• 去掉了scale_down选项，避免整体缩小字体；
• per_page = 10表示每个子表格显示10列，你可以根据PDF页面宽度调整这个数字（比如8列或12列）；
• 拆分后的子表格会连续显示，每个都带表头，读者能轻松对应列与数据。

方法2：微调LaTeX环境增强兼容性 #

如果你的PDF输出出现排版问题，记得在R Markdown的YAML头部添加必要的LaTeX包支持：

---
title: "Wide Table Demo"
output: 
  pdf_document:
    latex_engine: xelatex
header-includes:
  - \usepackage{longtable}
  - \usepackage{booktabs}
  - \usepackage{array}
---

这些包是kableExtra处理复杂表格的基础，能避免出现表格断裂或格式错乱的问题。

为什么不推荐scale_down？ #

scale_down是把整个表格等比例缩小，当列数特别多的时候，字体就会变得极小，可读性极差。而拆分表格的方式能保持正常字体大小，同时让数据以更友好的方式展示。

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