Многократное именование групп (групп) столбцов, добавление заголовков с col_spanners друг над другом в таблице APA

Question

Я создаю таблицы стиля APA, используя r markdown, latex и папайю пакета с функцией apa_table() для PDF документов. Я хотел бы добавить дополнительный с именем col_spanner поверх существующих (два с именами "Автомобили 1" и "Автомобили 2", см. Рисунок), начиная со столбца 2 и включая столбец 9 с именем или заголовком ". Машины'.

С kableExtra() это не проблема, вы просто добавите: add_header_above(c(" ", "Cars" = 8)), Но это не работает с папайей, латексом и 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)))

Answer 1

Это обходной путь, а не полное решение, но вы можете написать код таблицы в LaTex и вставить его как фрагмент в сценарий уценки.

Если вы свяжете документ с APA_table в PDF, вы также выведете файл .tex. Откройте это и найдите код, относящийся к вашей таблице, затем вы можете добавить в таблицу код в формате APA.

Например, соответствующий код префикса APA_table будет таким:

      \begin{table}[tbp]

\begin{center}
\begin{threeparttable}

\caption{\label{tab:transformtable}Caption goes here} %The label allows for referencing the 'chunk'/table

\begin{tabular}{llllll}

Введите здесь код и содержимое таблицы LaTex, используя \multicolumn{}{}{} для объединения столбцов и форзацев с помощью:

      \end{tabular}

\end{threeparttable}
\end{center}

\end{table}

Мой окончательный полный код был

      \begin{table}[tbp]

\begin{center}
\begin{threeparttable}

\caption{\label{tab:transformtable}}

\begin{tabular}{llllll}
\toprule
& &\multicolumn{2}{c}{Shapiro-Wilks} &\multicolumn{2}{c}{\emph{p}-value} \\
\cmidrule{3-6}
Measure & Transform Power & \multicolumn{1}{c}{Original} & \multicolumn{1}{c}{Updated} & \multicolumn{1}{c}{Original} & \multicolumn{1}{c}{Updated}\\
\midrule
OVT & 1.425 & .96 & .98 & .006 & .036\\
PURL & .025 & .70 & .99 & <.001 & .008\\
\bottomrule
\end{tabular}

\end{threeparttable}
\end{center}

\end{table}

Вставляется как фрагмент LaTex "```{=latex}", а затем связывает таблицу в формате APA с PDF-файлом.