r - 使用 kableExtra 和 lapply 时将每个表输出到新文档

Question

我有 45 门不同课程的教学评估数据集（每门课程有 2-114 名学生评估）。我创建了 45 个汇总表，其中包含每门课程的平均值、最小值、最大值、计数和一些比例（每门课程一张表）。当我在 RStudio 的绘图选项卡中查看输出时，看起来所有 45 个表都在一个庞大的文档中。我希望每个表都在自己的文档中（总共 45 个文档）。我不知道该怎么做。如果可能的话，我也想将所有 45 个表格导出为 PDF。我的代码如下：

S <- (lapply(split(evals, evals$`Course/Rotation`), function(dd) {
  dd %>% 
    group_by(`Course/Rotation`, Semester) %>% 
    summarise(AvgScore = mean(Score), Minimum=min(Score), Maximum=max(Score), 
    Count = n(), Unsatisfactory_Percent = (mean(Unsat)*100), BelowExp_Pct=(mean(BE)*100), 
    MetExp_Pct=(mean(ME)*100), AboveExp_Pct=(mean(AE)*100), Exceptional_Pct=.     (mean(Ex)*100))})) 
  S %>%
  kbl() %>% 
kable_material(c("striped", "hover")) 

标签： rdplyrlapplykableextra