如何调整Quarto中超出页面的代码块与表格？

一、代码块自动换行设置 #

直接在Quarto的YAML配置中开启代码块自动换行，或通过LaTeX包增强控制：

方式1：使用Quarto内置选项 #

---
title: "SSA"
format: 
  pdf:
    papersize: "letter"
    margin: "1in"
    code-blocks:
      wrap: true # 开启代码块自动换行
editor: visual
---

方式2：通过LaTeX包控制 #

---
title: "SSA"
format: 
  pdf:
    papersize: "letter"
    margin: "1in"
    include-in-header:
      text: |
        \usepackage{listings}
        \lstset{breaklines=true} # 强制代码内容换行
editor: visual
---

二、表格适配页面设置 #

针对kableExtra生成的表格，通过指定列宽实现首列文本换行，并让表格适配页面宽度：

# Load data
data <- read_excel("C:/Users/Alex/Desktop/PLA/Course Materials/Week 7/ShiftShare.xlsx")

# 可选：手动拆分首列长文本，指定换行宽度
data$`Industry Codes` <- stringr::str_wrap(data$`Industry Codes`, width = 15)

data %>%
  as.data.frame() %>%
  kable(
    caption = "Employment by Industry: United States and New York (2012 and 2022)",
    align = c("l", rep("c", 4)),
    col.names = c("Industry Codes", "2012", "2022", "2012", "2022"),
    format.args = list(big.mark = ","),
    booktabs = TRUE
  ) %>%
  kable_classic(full_width = TRUE) # 让表格占满页面可用宽度
  %>%
  add_header_above(
    header = c(" " = 1, "United States" = 2, "New York" = 2),
    align = "c"
  ) %>%
  column_spec(1, width = "3cm") # 强制首列固定宽度，触发文本换行

额外优化方案 #

• 若表格仍显拥挤，可在kable_classic中添加font_size = 9参数缩小字体
• 临时调整页面边距（如margin: 0.8in），但优先通过内容换行解决

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