如何在Quarto中缩放表格以适配PDF页面？

以下是几个针对PDF输出的实用解决办法：

• 缩小表格字体
  直接通过opt_table_font()调整字体大小，PDF输出会识别这个设置，缩小字体后整体表格宽度会明显减小：

  library(gt)
  # 假设df是你的26列数据框
  gt(df) %>%
    opt_table_font(size = 8) # 可根据需要调整为7-9号字体
  

• 给列内容设置自动换行
  用cols_wrap()指定每列的最大宽度，让过长的内容自动换行，避免列宽被内容撑得太宽：

  gt(df) %>%
    cols_wrap(
      columns = everything(),
      width = "2cm" # 按需求调整宽度单位，也可用"100px"
    )
  

• 切换PDF页面为横向布局
  在Quarto的YAML头部添加横向页面设置，增加页面可用宽度：

  format:
    pdf:
      geometry: landscape # 启用横向
      margin: 1in # 可同时调整页边距，进一步利用空间
  

• 调整列对齐方式减少留白
  默认的居中对齐可能会增加列的留白，改为左对齐（或右对齐，根据数据类型）可以压缩列宽：

  gt(df) %>%
    cols_align(align = "left", columns = everything())
  

• 拆分多列表格为多个子表格
  如果列数实在过多，可将数据按列分组，拆分成多个表格依次展示：

  # 拆分前13列和后13列
  df_part1 <- df[, 1:13]
  df_part2 <- df[, 14:26]
  
  gt(df_part1) %>% tab_header(title = "表格第一部分")
  gt(df_part2) %>% tab_header(title = "表格第二部分")
  

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