R Markdown PDF 的缩小 gt 表

Question

这是一个非常普遍的问题。我使用 gt 包在 R markdown 中创建了一些表。我想知道如何缩小表格，使其适合我编写 Markdown 脚本时创建的 PDF。我有以下表代码：

DEGs %>%
  filter(FC==2 & package=="edgeR") %>%
  select(-Dataset_label, -FC, -FDR, -Condition_1, -Condition_2, -package, -FullGeneBody.Down_genes, -FullGeneBody.Up_genes) %>%
  gt() %>%
  tab_options(
    container.width = pct(85),
    container.overflow.x = T,
    table.align = "center",
    table.width = pct(85),
    table.layout = "auto"
  )%>%
  tab_header(
    title = "DEHP and Pb 5 Month ",
    subtitle = glue("|FC| > {DEGs$FC[5]} and FDR < {DEGs$FDR[5]}")
  ) %>%
  fmt_number(
    columns = comparison
  ) %>%
  #fmt(
    #columns = c(Condition_Name_1, Condition_Name_2, Condition_1_GM_Numbers, Condition_2_GM_Numbers)
    
  #)%>%
  fmt_number(
    columns = c(ExonCollapsed.Down_genes, ExonCollapsed.Up_genes)
    
  ) %>%
  cols_label(
    comparison="Comp", 
    Condition_Name_1="Condition 1", 
    Condition_Name_2="Condition 2",
    Condition_1_GM_Numbers="Condition 1 #s", 
    Condition_2_GM_Numbers="Condition 2 #s", 
    ExonCollapsed.Down_genes="Down Genes", 
    ExonCollapsed.Up_genes="Up Genes"
    )

正如您所看到的，我尝试使用table.align, table.width等来尝试调整表格大小，但这些设置似乎都不会影响实际 PDF 中的表格。

谢谢您的帮助。

编辑：有人要求我将代码制作为可重现的示例，我不确定是否可以使用内置数据集来做到这一点。我认为一些困惑是因为我没有弄清楚当我将 Markdown 编织成 PDF 时会发生什么。因此，如果我只运行上面的代码，我会得到如下输出：

出现滚动条就可以让人们通过滚动看到整个表格。然而，当我编织成 PDF 时，我得到以下信息：

如您所见，PDF 中的表格已被完全截断。

（注意：要查看图像，请右键单击图标，然后单击在新选项卡中打开。我的错，我可能链接了错误的图像）