r - 在 R 中的 sjPlot 上使用 tab_model 将 html 文件保存在循环中

Question

在某个循环中，我尝试使用 tab_model 并保存所有结果:

keys<-c("a","b","c")

for (i in keys) {
  formula <- as.formula(paste0("int", "~","int2", "+","int3"))
  x2 <- lme(formula, data = df, random = ~ 1 | int4, na.action = na.omit)
  tab_model(x2, file = paste0('name_', i,"_toshow.html"))
}

当我这样做时，它会运行并且不下载文件
(当我不在循环中这样做时它工作正常)

Answer 1

我从 documentation 中获取了一些样本数据的功能。如果您提供一些虚拟数据/可重现的示例，则可以更容易/更快地提供帮助!

# load package
library(sjPlot)
library(sjmisc)
library(sjlabelled)

# sample data
data("efc")
efc <- as_factor(efc, c161sex, c172code)

# sample regression
m1 <- lm(barthtot ~ c160age + c12hour + c161sex + c172code, data = efc)

# try
for (i in 1:3) {
  print(tab_model(m1, file = paste0("test_",i,".html")))
}

当您输入 print() 时它会起作用周围 tab_model()功能。这是因为在循环中，输出不会自动打印出来。看这里: Why do R objects not print in a function or a "for" loop? .由于功能似乎取决于在保存之前打印输出，因此您必须“手动”打印它。