多次命名（group of）列的组，在APA表中将col_spanners添加到彼此之上

Question

我正在使用r markdown，latex和包含papaja的软件包创建APA样式表，其中包含pdf文档的函数apa_table()。我想在现有的名称之上添加另一个名为col_spanner的名称（两个名称为“汽车1”和“汽车2”，见图片），从第2列到第9列包含名称或标题'汽车。

使用kableExtra（）这不是问题，您只需添加：add_header_above(c(" ", "Cars" = 8))。但这不适用于papaja，latex和pdf文件（据我所知）。

包含的代码和图片用于说明。

{r , results= 'asis'}
library(papaja)
my_table <- t(apply(cars, 2, function(x) {
  round(c(Mean = mean(x), SD = sd(x), Min = min(x), Max = max(x)), 2) 
}))

apa_table(cbind(my_table, my_table),
          align = c("l", rep("r", 8)),
          caption = "A summary table of the cars dataset.",
          note = "This table was created using apa\\_table()",
          added_stub_head = "Variables",
          col_spanners = list(`Cars 1` = c(2, 5), `Cars 2` = c(6, 9)))