我使用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上正确渲染.
