Форматирование таблицы из apa_list(список)

Question

Я печатаю таблицу в PDF с большим успехом. Стандартная иерархическая регрессия с тремя шагами. Однако у меня два вопроса: 1) как добавить звездочку, чтобы пометить значения sig p на ковариатах, и 2) как удалить строки, такие как AIC и т. Д. На данный момент я просто открываю pdf в слове, чтобы редактировать стол, но думал, что кто-то может иметь решение. Благодарю.

H_regression <- apa_print(list(Step1 = model1, 
                               Step2 = model2, 
                               Step3 = model3), 
                          boot_samples = 0)

Answer 1

Я буду использовать пример из papaja документация в качестве примера.

mod1 <- lm(Sepal.Length ~ Sepal.Width, data = iris)
mod2 <- update(mod1, formula = . ~ . + Petal.Length)
mod3 <- update(mod2, formula = . ~ . + Petal.Width)

moi <- list(Baseline = mod1, Length = mod2, Both = mod3)

h_reg <- apa_print(moi, boot_samples = 0)
h_reg_table <- h_reg$table

2) как убрать строки вроде AIC

Стол, возвращенный apa_print() это data.frame с некоторой дополнительной информацией. Следовательно, вы можете индексировать и подгруппировать его, как и любую другую таблицу. Вы можете выбрать строки по имени (см. Ниже) или по номеру строки.

# Remove rows
rows_to_remove <- c("$\\mathrm{AIC}$", "$\\mathrm{BIC}$")
h_reg_table <- h_reg_table[!rownames(h_reg_table) %in% rows_to_remove, ]

1) Как добавить звездочку, чтобы пометить значения sig p на ковариатах

В настоящее время нет способа выделить значимых предикторов (я не фанат этой практики). Но вот код, который позволит вам добавить подсветку после факта. Следующая функция берет отформатированную таблицу, список сравниваемых моделей и символьный символ для выделения значимых предикторов в качестве входных данных.

# Define custom function
highlight_sig_predictors <- function(x, models, symbol) {
  n_coefs <- sapply(models, function(y) length(coef(y)))

  for(i in seq_along(models)) {
    sig_stars <- rep(FALSE, max(n_coefs))
    sig_stars[1:n_coefs[i]] <- apply(confint(models[[i]]), 1, function(y) all(y > 0) || all(y < 0))
    x[1:max(n_coefs), i] <- paste0(x[1:max(n_coefs), i], ifelse(sig_stars, symbol, paste0("\\phantom{", symbol, "}")))
  }

  x
}

Теперь эту функцию можно использовать для настройки таблицы, возвращаемой apa_print(),

# Add significance symbols to predictors
h_reg_table <- highlight_sig_predictors(h_reg_table, moi, symbol = "*")

# Print table
apa_table(h_reg_table, escape = FALSE, align = c("lrrr"))