如何使用线性和调节回归的系数在 r 中创建 apa 回归表

Question

我已经运行了一个简单的线性回归和 2 个有调节的回归，并且需要为每个回归提供一个系数表。我尝试了在互联网上找到的一些不同的代码，但没有一个生成类似于 apa 网站上显示的示例回归表的表格。它们必须采用 APA 格式，并且最好能够直接下载为 Word 文档。 我的简单线性回归是：

DF1 <- lm(formula = UEBscore ~ TUTscore, data = finalised_dataset) 
summary(DF1)

我的 2 个调节回归是：

DF2 <- lm(TUTscore~social_context * UEBscore, data = finalised_dataset) 
summary(DF2)

DF3 <- lm(TUTscore~emotionality* UEBscore, data = finalised_dataset) 
summary(DF3)

我想要一个代码，使用我从 R 回归中看到的系数输出来生成 APA 格式的表格。我不完全确定这些表格中应该包含什么内容，但到目前为止，我还没有找到 APA 模板和其他资源。我已经收集到了，我应该有我的估计、SE、t 值、p 值、CI 和 R 平方的截距和 TUTscore，还可能有 f stat 和 b 值（b 值不会显示在 R 中的回归输出中）

我发现唯一有效的代码是这个，它被保存并能够在APA格式的word文档中打开，但它只包括b，b 95％CI，sr2，sr295％ CI 和 Fit - 我不知道这些conf ints是否与您在r中运行回归时产生的结果不同，但这些数字与我正常运行回归时得到的系数输出不匹配并且缺少估计、SE 和 p 值在 APA 样本回归表中

library(apaTables)
table1 <- apa.reg.table(DF1, table.number = 1)
apa.reg.table(DF1, filename = "table1.doc")

我尝试使用此代码，但它说它无法识别apa.save

library(apaTables)
table1 <- apa.reg.table(DF1, 
                        table.number = 1)
apa.save(filename = "table1.doc", 
         table1)
flextable::save_as_docx()

并尝试了这段代码，但无法识别nice_table

install.packages("rempsyc")
install.packages("flextable")
pkgs <- c("flextable", "broom", "report", "effectsize")
install.packages(pkgs)
library(rempsyc)
table1 <- nice_table(
  DF1[1:3, ], 
  title = c("Table 1", "Linear Regression Between TUT and UEB"), 
  note = c("The data was extracted from my study", "* p < .05, ** p < .01, *** p < .001"
  )
)

Answer 1

该文档似乎适用于开发版本而不是 CRAN 版本。 在 GitHub 上的一个开放问题中，软件包开发人员建议：

apa.reg.table(blk1,文件名=“exRegTable.doc”)