如何解决使用 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)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。