R markdown 表格到 PDF 与 htmlTable 包一样灵活

Question

您是否知道任何开发/包可以（通过 R 降价）在 PDF 文档中创建表格，就像我们能够使用 htmlTable 包创建的 HTML 输出一样（非常灵活！）？

我追求的是结合能力：

• 多行单元格（ztable 无法做到这一点，当您的文本应该适合一个单元格时，这一点至关重要）
• 分组/部分（pander 不能这样做）
• 列和行跨度（pander 不能这样做）
• 旋转列标题（pander 不能这样做）
• 条件格式

我想我尝试了所有方法（Pandoc、knitr、kable、xtable、ztable 等等），但总有一种方法我总是遗漏上述元素之一（Pandoc 通常是我的首选折衷方案）。

感谢您的帮助！

例如，考虑以下 data.frame（在行和列方面，它是一个更大的表的简化版本）：

scenDes <- data.frame(type = c("Hist", "Stress", "Hist", "Stress"),
                  name = c("Equity Markets Rebound in 2009",
                           "Greece Financial Crisis 2015",
                           "Libya Oil Shock Feb 2011",
                           "Russian Financial Crisis 2008"),
                  description = c("Global equity markets rebound following 2008 drawdown. Use Historical risk factor returns.",
                                  "Athens's resistance via referendum and ultimately agreement to rush through long-resisted economic reforms, imposed by its creditors, in a bid to stay in the eurozone. Use Historical risk factor returns.",
                                  "Civil war in Libya breaks out on February 15th 2011, causing oil prices to surge. Use Historical risk factor returns.",
                                  "War with Georgia and rapidly declining oil prices raise fears of an economic recession within the region. Use Historical risk factor returns."))

使用 htmlTable 我可以按“类型”对表格进行分组，并将“描述”作为多行。我没有设法找到一个包，使我能够创建具有这些特征的该表的 PDF 版本。 理想情况下，出于其他目的，我希望能够添加跨列/行并添加颜色/行以用于条件格式或在一张纸上更好地可视化。

就 htmlTable 而言，我会这样做：

scenDes <- scenDes[order(scenDes$type),]
acCount <- as.vector(table(scenDes$type))

htmlTable(scenDes[,-1],
            rnames = FALSE,
            align="ll",
            rgroup = unique(scenDes$type),
            n.rgroup = acCount,  
            css.cell = "font-size: 9pt;padding-left:1em; padding-right:2em;")

提供：

也许不是很好，但对于这种特定情况，已经足够好了：关键是在单元格中包含换行文本。

Answer 1

我已经尽我所能使用pixiedust，但似乎我在 PDF 输出方面仍有一些进展。

---
header-includes:
- \usepackage{amssymb}
- \usepackage{arydshln}
- \usepackage{caption}
- \usepackage{graphicx}
- \usepackage{hhline}
- \usepackage{longtable}
- \usepackage{multirow}
- \usepackage[dvipsnames,table]{xcolor}
output:
  pdf_document: default
  html_document: default
---

```{r}
scenDes <- data.frame(type = c("Hist", "Stress", "Hist", "Stress"),
                  name = c("Equity Markets Rebound in 2009",
                           "Greece Financial Crisis 2015",
                           "Libya Oil Shock Feb 2011",
                           "Russian Financial Crisis 2008"),
                  description = c("Global equity markets rebound following 2008 drawdown. Use Historical risk factor returns.",
                                  "Athens's resistance via referendum and ultimately agreement to rush through long-resisted economic reforms, imposed by its creditors, in a bid to stay in the eurozone. Use Historical risk factor returns.",
                                  "Civil war in Libya breaks out on February 15th 2011, causing oil prices to surge. Use Historical risk factor returns.",
                                  "War with Georgia and rapidly declining oil prices raise fears of an economic recession within the region. Use Historical risk factor returns."))
```

```{r}
# devtools::install_github("nutterb/pixiedust", ref = "new-latex-tables")
library(pixiedust)
library(dplyr)

scenDes <- 
  arrange(scenDes, type)

group_row <- 
  lapply(unique(scenDes$type),
         function(x) which(scenDes$type %in% x))

tbl <- 
  scenDes %>%
  arrange(type) %>%
  dust(float = FALSE)

for (i in seq_along(group_row))
{
  tbl <- sprinkle(tbl,
                  cols = "type",
                  rows = group_row[[i]],
                  merge = TRUE)
}

tbl %>%
  sprinkle(cols = "description",
           width = 3.7,
           width_units = "in") %>%
  medley_all_borders(cols = c("name", "description")) %>%
  sprinkle(cols = "type",
           rows = (1:nrow(scenDes))[c(TRUE, FALSE)],
           border = c("top")) %>%
  sprinkle(cols = "type",
           rows = nrow(scenDes),
           border = "bottom") %>%
  medley_bw()
```