我使用flextable来循环一个数据列表,为列表中的每个元素生成标题和表格,从而在rmarkdown
个文档中生成表格.虽然我可以成功地呈现标题和表格,但标题和表格之间的填充/边距太大,我找不到减少它们的方法.以下是我目前掌握的情况:
---
title: "Untitled"
output: html_document
date: '2022-05-09'
---
``{r setup, include=FALSE}
library(flextable)
library(magrittr)
``
``{r results='asis', echo=FALSE, ft.align="left"}
my_list<-list()
my_list$ds1<-head(mtcars, 5)
my_list$ds2<-head(mtcars, 10)
for (i in 1:length(my_list)) {
myft <- flextable(my_list[[i]]) %>%
set_caption(paste("Caption ", i))
flextable_to_rmd(myft)
}
``
我认为使用flextable::padding()
可能会有所帮助,但这似乎只控制表格行内的填充,而不是页面上元素之间的间距.
请注意,我已经删除了上面代码示例中一些必需的标记反勾号,以便它可以在Stackoverflow上正确渲染.