Есть ли способ использовать экспортные суммы с заголовком?

Question

Я пытаюсь запустить регрессию блока (logisti c), и все выглядит нормально, за исключением того, что я не могу узнать, как создать заголовок для таблицы, сноски и т. Д. c. Вдобавок я не могу контролировать количество цифр. Я запускаю следующий код, используя набор данных mtcars:

data(mtcars)
summary(mtcars)
AA<-glm(factor(vs)~mpg+cyl, data=mtcars,family=binomial("logit"))
BB<-glm(factor(vs)~mpg+cyl+disp, data=mtcars,family=binomial("logit"))
CC<-glm(factor(vs)~mpg+cyl+disp+hp, data=mtcars,family=binomial("logit"))
DD<-glm(factor(vs)~mpg+cyl+hp+drat, data=mtcars,family=binomial("logit"))
EE<-glm(factor(vs)~mpg+cyl+disp+hp+drat, data=mtcars,family=binomial("logit"))

AA_1<-summ(AA,vifs = getOption("summ-vifs", TRUE),
digits = getOption("jtools-digits", default = 2),
exp = TRUE,
pvals = getOption("summ-pvals", TRUE),
model.info = getOption("summ-model.info", TRUE),
model.fit = getOption("summ-model.fit", TRUE))

BB_1<-summ(BB,vifs = getOption("summ-vifs", TRUE),
digits = getOption("jtools-digits", default = 2),
exp = TRUE,
pvals = getOption("summ-pvals", TRUE),
model.info = getOption("summ-model.info", TRUE),
model.fit = getOption("summ-model.fit", TRUE))

CC_1<-summ(CC,vifs = getOption("summ-vifs", TRUE),
digits = getOption("jtools-digits", default = 2),
exp = TRUE,
pvals = getOption("summ-pvals", TRUE),
model.info = getOption("summ-model.info", TRUE),
model.fit = getOption("summ-model.fit", TRUE))

DD_1<-summ(DD,vifs = getOption("summ-vifs", TRUE),
digits = getOption("jtools-digits", default = 2),
exp = TRUE,
pvals = getOption("summ-pvals", TRUE),
model.info = getOption("summ-model.info", TRUE),
model.fit = getOption("summ-model.fit", TRUE))

EE_1<-summ(EE,vifs = getOption("summ-vifs", TRUE),
digits = getOption("jtools-digits", default = 2),
exp = TRUE,
pvals = getOption("summ-pvals", TRUE),
model.info = getOption("summ-model.info", TRUE),
model.fit = getOption("summ-model.fit", TRUE))

export_summs(AA_1,BB_1,CC_1,DD_1,EE_1,main='sdfddsfdsf',
model.names = c("MODEL1","MODEL2","MODEL3","MODEL4","MODEL5 (Full Model"),             
coefs = c(
"Miles per gallon"="mpg",
"Cylinders"="cyl",
"HP ration" = "hp",
"Drat account" = "drat"),
summ.glm = c(N = "nobs",AIC = "AIC",BIC = "BIC",`Pseudo R2` = "pseudo.r.squared",exp = TRUE),align=".",
model.info=TRUE,model.fit=TRUE,digits=2, center=TRUE,scale = TRUE,auto.format=TRUE,
borders=1,stars = c(`*` = 0.10, `**` = 0.05, `***` = 0.01), title="X")

Таблицы работают нормально, но что бы я ни делал, я не могу найти способ разместить заголовок в таблице - я также запустил файл to.file = "Word" и file.name функции в конце кода export.summ, чтобы получить хороший текстовый файл, но я сталкиваюсь с проблемами, когда заголовок не отображается, а цифры иногда показывают десять или более цифр, что было бы плохо воспринимать при представлении моих результатов.

Вопросы:

1. Как мне вставить заголовок и сноски?
2. Изначально я использовал для этого stargazer, но я действительно хочу добавить скорректированная функция r-квадрат для сравнения моделей. Кто-нибудь знает, как заставить звездочета сделать это?
3. Может быть, с помощью каких-либо пакетов или методов, которые позволяют человеку запускать блочную (logisti c) регрессию с целью сравнения моделей, включая VIF, индекс состояния, и RO C номера кривых для каждой модели (блока)>

Извините за шквал вопросов - весь день работал над названием и di git вещью, и я пока безуспешно ...