这已经困扰了我太久了,我很感激你的帮助。我一直在投入时间,但对我来说还没有达到我想要的效果。我希望创建多个分组行,如图中所示
这样做的代码如下:
collapse_rows_dt <- expand.grid( District = sprintf('District %s', c('1', '2')), City = sprintf('City %s', c('1', '2')), State = sprintf('State %s', c('a', 'b')), Country = sprintf('Country with a long name %s', c('A', 'B'))
)
collapse_rows_dt <- collapse_rows_dt[c("Country", "State", "City", "District")]
collapse_rows_dt$C1 = rnorm(nrow(collapse_rows_dt))
collapse_rows_dt$C2 = rnorm(nrow(collapse_rows_dt))
kbl(collapse_rows_dt, booktabs = T, align = "c", linesep = '') %>%
collapse_rows(1:3, row_group_label_position = 'stack')
问题是,当我在R标记中运行这个程序时,我会得到输出中的HTML版本(参见下面)
这显然还不够好。我可以得到正确的输出(第一张图像),如果我编织到pdf,但仅此而已。如果我尝试执行save_kable(),就会发现它是HTML格式的,就像在第二个图像中一样。每次Kniting to pdf是如此不切实际,如果我不能修复它,我就不可能再使用它了。这对我来说是件大事。
如果我设置了format='latex‘,那么就不会有任何内联显示,当我尝试kable_save()时,我会得到以下错误消息:
这是Xtex版本3.(tex 2020/w32Tex)预加载的format=xlatex)限制\写18启用。进入扩展模式
然后是一个通知我的pop (R崩溃)
R会话中止,r封装了一个致命错误
所有不需要latex的HTML表都会适当地显示为内联,并将保存为它们的实际图像。
相关的最新包:
- library(webshot)
library(tinytex) (also tried without)
library(magick)
library(plyr)
library(tidyverse)
library(dplyr)
library(knitr)
library(skimr)
library(kableExtra)
还:
environment
尝试过:
基于install.packages(magick的
- editing the policy.xls in ImageMagick to bypass a security feature [ImageMagick security policy 'PDF' blocking conversion](https://stackoverflow.com/questions/52998331/imagemagick-security-policy-pdf-blocking-conversion)
- library(tinytex)tlmgr\_install(pkgs = 'standalone')tlmgr\_install(pkgs = 'preview')tlmgr\_install(pkgs = 'polyglossia')tlmgr\_install(pkgs = 'xltxtra')tlmgr\_install(pkgs = 'realscripts')
发布于 2020-09-04 01:15:44
如果您想编织并包含通过LaTeX和PDF生成的图像,则可以使用kableExtra::as_image
。
---
output: html_document
---
```{r}
图书馆(KableExtra)
图书馆(Magrittr)
collapse_rows_dt <- expand.grid(地区=sprintf(‘区%s',c('1','2')),城市= sprintf('City %s',c('1','2')),State = sprintf('State %s',c('A',’b‘),Country =sprintf(’有很长的名字%s',c('a','b'))
)
collapse_rows_dt <- collapse_rows_dtc(“国家”、“州”、“城市”、“区”)
collapse_rows_dt$C1 = rnorm(nrow(collapse_rows_dt))
collapse_rows_dt$C2 = rnorm(nrow(collapse_rows_dt))
(collapse_rows_dt,“胶乳”,align="c",linesep=“,书签= T) %>%
collapse_rows(1:3,row_group_label_position =‘堆栈’) %>%
kable_styling(latex_options =c(“条带”,"scale_down")) %>%
as_image()
https://stackoverflow.com/questions/63733482
复制相似问题