stargazer:F Statistic/df 中的换行符

Question

在使用 stargazer 创建表格时，我想在自由度之前添加一个新行(如下:左括号之前)。有人可以帮我打正确的电话吗，我在包文档中找不到。 (很抱歉没有创建可重现的代码，我不知道如何用假数据模拟回归。我希望有人能帮助我!)

Answer 1

据我所知，没有内置功能可以在不同的行中显示 F 统计量和 dfs。您必须破解 stargazer() 的输出才能制作您想要的表格。此答案中的用户定义函数 (show_F_in_two_lines()) 将生成如下所示的表格。

library(stringr)

show_F_in_two_lines <- function(stargazer) {
  # `Stringr` works better than base's regex 
  require(stringr)

  # If you remove `capture.output()`, not only the modified LaTeX code 
  # but also the original code would show up
  stargazer <- stargazer |>
    capture.output()

  # Reuse the index in which F-statistics are displayed
  position_F <- str_which(stargazer, "F Statistic")

  # Extract only F-statistics
  Fs <- stargazer[position_F] |>
    str_replace_all("\\(.*?\\)", "")

  # Extract only df values and make a new line for them
  dfs <- stargazer[position_F] |>
    str_extract_all("\\(.*?\\)") |>
    unlist() |>
    (
      \(dfs)
      paste0(" & ", dfs, collapse = "")
    )() |>
    paste0(" \\\\")

  # Reuse table elements that are specified
  # after the index of F-statistics
  after_Fs <- stargazer[-seq_len(position_F)]

  c(
    stargazer[seq_len(position_F - 1)],
    Fs,
    dfs,
    after_Fs
  ) |>
    cat(sep = "\n")
}

stargazer(
  header = FALSE,
  lm.out.1,
  lm.out.2,
  lm.out.3,
  lm.out.4,
  lm.out.5
) |>
  show_F_in_two_lines()