使用 pander 在 LaTeX 渲染中未分组的行

问题描述

当我将下表呈现为 HTML 时，我得到了预期的行分组：

library(expss)
library(dplyr)
library(pander)
library(knitr)

test_data = 
  data.table(
    division = c(rep("A",5),rep("B",5)),group = rep(c(rep("alpha",2),rep("beta",3)),subgroup = c("red","orange","yellow","green","blue","indigo","violet","black","white","brown"),ins = rnorm(10),outs = runif(10),overs = seq(1,100,10)
  )

test_data = apply_labels(test_data,division = "Department",group = "Center",subgroup = "Team",ins = "In-flow",outs = "Out-flow",overs = "Throughput")

test_table = 
  test_data %>% 
  tab_cells(ins,outs,overs) %>% 
  tab_cols(division %nest% group %nest% subgroup) %>%
  tab_stat_fun(identity) %>%
  tab_pivot() %>%
  drop_rc() %>%
  tab_transpose()

test_table

但是，当我将其呈现为 PDF 时，行分组失败，取而代之的是长串以竖线分隔的字符。

pander(test_table)

我认为这更像是一个 LaTeX 而不是 R 问题，但我不确定它是否与 pander 位于中间。考虑到人们“上梯”的偏好，我更愿意将其输出为 PDF。

解决方法

expss 的默认输出不支持 pdf/latex。但是有一个很好的包 huxtable 可以与 pdf 一起使用： 所以你需要使用 as_huxtable:

library(huxtable)
as_huxtable(test_table)