2017-12-28 8 views
0

Ich möchte Regression Ergebnistabellen zu Word von Knitr ausgeben, aber ich habe Probleme. Ausgabe Mtabelle s \ LaTeX funktioniert, wenn ich die Optionen zwicke, aber ich bin fest, wenn es um Word geht. Mein MWE ist unten.Wie erstelle ich Regression Ergebnis Tabellen zu Word von Knitr/R RStudio? (mtable, memisc)

--- 
output: 
    word_document: default 
--- 

```{r setup, include=FALSE} 
knitr::opts_chunk$set(echo = TRUE) 
library(memisc) 
``` 

## This section contains ugly text, not a table 
```{r eval = T, include = T, echo = F} 
lm0 <- lm(sr ~ pop15 + pop75,    data = LifeCycleSavings) 
lm1 <- lm(sr ~     dpi + ddpi, data = LifeCycleSavings) 
lm2 <- lm(sr ~ pop15 + pop75 + dpi + ddpi, data = LifeCycleSavings) 

mt01 <- mtable(lm0,lm1,summary.stats=c("R-squared","N")) 
mt12 <- mtable(lm1,lm2,summary.stats=c("R-squared","F","N")) 

c("Group 1"=mt01, 
"Group 2"=mt12) 
``` 
+0

Ich bin verwirrt. Die Hilfeseite für 'memisc :: mtable' verwendet Code, der fast identisch mit diesem ist und einen Abschnitt hat, der die Ausgabe für MS Word geeignet macht. Es gibt auch Unterstützung für HTML (das sollte auch mein MSW lesbar sein): http://finzi.psych.upenn.edu/R/library/memisc/html/mtable-format-html.html –

+0

Könnten Sie genauer sein? Oder, wenn es Ihnen leicht fällt, könnten Sie ein Beispiel geben? Mir war bewusst, dass man eine HTML-Tabelle erstellen könnte, die dann wie hier [hier] (https://cran.r-project.org/web/packages/memisc/vignettes/mtable-html) als MS Word oder LibreOffice importiert werden kann .html) und ich habe die Hilfedateien gelesen. Leider kann ich eine memisc :: mtable nicht in Word rendern, da ich andere Tools wie kable verwenden kann. – RTS

+0

Hallo RTS, ich habe versucht, die Hilfeseite sagt "Der Inhalt dieser Datei kann in Word eingefügt und in eine Word-Tabelle umgewandelt werden.". Ich habe es versucht und konnte es nicht richtig verstehen. Die Antwort ist nicht so einfach wie es scheint. – Cedric

Antwort

0

Ich habe einen hässlichen Hack entwickelt, der funktioniert. Ich hoffe, es kann jemand anderem in meiner Position helfen. Ich bin ziemlich sicher, dass es einen offensichtlichen und einfacheren Weg gibt, dies zu erreichen.

--- 
output: 
    word_document: default 
--- 
```{r setup, include=FALSE} 
knitr::opts_chunk$set(echo = TRUE) 
library(memisc) 
``` 

## This section contains a table, not ugly text 
```{r eval = T, include = T, echo = F} 
lm0 <- lm(sr ~ pop15 + pop75,    data = LifeCycleSavings) 
lm1 <- lm(sr ~     dpi + ddpi, data = LifeCycleSavings) 
lm2 <- lm(sr ~ pop15 + pop75 + dpi + ddpi, data = LifeCycleSavings) 

mt01 <- mtable(lm0,lm1,summary.stats=c("R-squared","N")) 
mt12 <- mtable(lm1,lm2,summary.stats=c("R-squared","F","N")) 

x = c("Group 1"=mt01,"Group 2"=mt12) 

x = memisc::mtable_format_delim(x) 
writeLines(x,"table.csv") 
x = read.delim("table.csv", header = F, stringsAsFactors = F) 
colnames(x) = x[1,] 
x = x[-1,] 
rownames(x) = NULL 
knitr::kable(x) 
``` 
Verwandte Themen