web-dev-qa-db-ja.com

単語へのr出力テーブルの回帰モデル

結合されたテーブルを作成するためにsjplotを使用しています。これにより、HTMLテーブルが作成されます。 Wordにエクスポートできる表を作りたいのですが。

Wordへのコピーと貼り付けについて説明しているこの投稿をレビューしましたが、これにより列と行の書式が変更されます。 複数の回帰表をRのWord文書の複数のページに出力

n1 <- glm(N  ~ Age_2 , data = n_data, family = "binomial")
g1 <- glm(G  ~ Age_2 , data = g1_data, family = "binomial")
ga1 <- glm(G_1  ~ Age_2 , data = ga1_data, family = "binomial")
l1 <- glm(L_1  ~ Age_2 , data = l1_data, family = "binomial")
c1 <- glm(C_1  ~ Age_2 , data = c1_data, family = "binomial")
m1 <- glm(m  ~ Age_2 , data = m1_data, family = "binomial")

tab_model (n1,g1,ga1,l1,c1,m1)

また、グループごとの観測の合計数に加えて、結果があった数（つまり、Nの数）を含む行を追加することは可能ですか？

助言がありますか？他のパッケージを試してみてください。

rms-wordlogistic-regressionsjplotgtsummary
5
sar

sjPlotはhtmlに出力するため、直接Word文書に取り込むのは非常に困難です。次に、knitr、rmarkdown、jtools、およびhuxtableを使用して、実行したいことと同様の操作を行う方法の例を示します。私はRStudioを、Word文書に編み込んだrmarkdown文書と共に使用しています。

---
title: "jtools to Output Logistic Regression Models"
author: "sar"
date: "`r format(Sys.time(), '%d %B %Y')`"
output: Word_document
---

```{r setup, include=FALSE}
library(knitr)
library(jtools)
library(huxtable)

knitr::opts_chunk$set(echo=FALSE, warning = FALSE)

```

# Introduction

This is a test document to demonstrate how knitr and rmarkdown can be used to put output from jtools
into a Word Document

```{r OutputTable}
set.seed(1234)
logistic_s <- data.frame(N=rbinom(200,1,0.5),
                         G=rbinom(200,1,0.5),
                         G_1=rbinom(200,1,0.5),
                         L_1=rbinom(200,1,0.5),
                         C_1=rbinom(200,1,0.5),
                         m=rbinom(200,1,0.5),
                         Age_2=round(rnorm(200,40,6)))

n1 <- glm(N  ~ Age_2 , data = logistic_s, family = "binomial")
g1 <- glm(G  ~ Age_2 , data = logistic_s, family = "binomial")
ga1 <- glm(G_1  ~ Age_2 , data = logistic_s, family = "binomial")
l1 <- glm(L_1  ~ Age_2 , data = logistic_s, family = "binomial")
c1 <- glm(C_1  ~ Age_2 , data = logistic_s, family = "binomial")
m1 <- glm(m  ~ Age_2 , data = logistic_s, family = "binomial")

model_summs <- export_summs(n1,g1,ga1,l1,c1,m1,
                            error_format = "({conf.low}, {conf.high})",
                            model.names = c("N","G","G_1","L_1","C_1","m"))

col_width(model_summs) = c(0.84,rep(0.95,6))

model_summs
```
2
Sam Dickson