我做了一个map函数，它给了我一个列表。我想把列表中的每个元素转换成一个表，然后用markdown导出。
我有这个清单：

mtcars_list <- c ("am","gear","carb")

字符串
我有一个变量，我想group_by：“cyl”和我想总结的变量。在这种情况下，我将mtcars数据库的变量“vs”转换为因子：

mtcars$vs <- factor(mtcars$vs , levels=c('0', '1'))

型
然后我做了这个map：：呼噜声功能，

df1 <- purrr::map(mtcars_list, ~ mtcars %>% select(cyl,vs,!!sym(.x)) %>% 
                    mutate(n=n() , .by=c(cyl, .data[[.x]], vs)) %>% 
                    mutate(n2=n(), .by=c(cyl, .data[[.x]]) ) %>% 
                    group_by(cyl, .data[[.x]], vs) %>% 
                    slice_tail(n=1) %>% 
                    mutate(perc=(n/n2)*100) %>% 
                    pivot_wider(id_cols = c(cyl,.data[[.x]]), names_from = vs, values_from = perc)
)

型
然而，当我使用markdown运行输出时，它只打印包含整个列表代码的列表，并且我不能将结果拆分到列表中每个元素的单独表中。
谢谢你！