Сохранение формата вывода чанка в pdf-документе аналогично формату вывода консоли - Rmarkdown - PullRequest
1 голос
/ 28 апреля 2020

Вывод следующего фрагмента кода делится на 2 блока (рисунки 1 и 2) в визуализированном PDF-документе: первый блок, содержащий два первых столбца (Оценка и стандартная ошибка) и еще один для остальных (значение t и Pr (> | t |)). Как сохранить формат вывода консоли (все столбцы в одном блоке, рисунок 3) в выходном PDF-документе?

Блок кода:

```{r model1}
lm1=lm(formula=Long.Term.Debt~.,data=donnees[,-c(1:3)])
summary(lm1)
```

Отображаемый вывод в документе PDF:

enter image description here

Рисунок. 1: первый блок, содержащий 2 первых столбца

enter image description here

Рис. 2: Другой блок, содержащий 2 оставшихся столбца

Требуемый вывод:

enter image description here

Рис. 3: Вывод на консоль (один блок, содержащий все столбцы)

Я безрезультатно попытался увеличить область отображения вывода и уменьшить размер шрифта следующим образом:

Уменьшение размера шрифта :

\tiny
```{r model1}
lm1=lm(formula=Long.Term.Debt~.,data=donnees[,-c(1:3)])
summary(lm1)
```

Настройка размера области отображения:

```{r model1, fig.width=80, fig.height=8}
lm1=lm(formula=Long.Term.Debt~.,data=donnees[,-c(1:3)])
summary(lm1)
```

Заранее спасибо.

1 Ответ

1 голос
/ 29 апреля 2020

Вы можете использовать knitr::kable() и kableExtra(), чтобы отобразить сводку результата более элегантным способом. Вывод следующего кода обрабатывается как таблица. Таким образом, его номер таблицы генерируется автоматически, если вы используете bookdown.

```{r summary}
library(knitr)      # for kable()
library(knitrExtra) # for further customisation of the kable() output 
library(magrittr)   # for the pipe %>%, press "Ctrl/Cmd + Shift + m"

kable(summary(lm1)$coefficient[, 0:4], # by 0:4, you can select the columns from variable names to p-values 
      digits = 2,                      # You can reduce the digit number
      booktabs = TRUE,                 # If false, you will get a lattice-like table
      caption = 'Coefficients (2 not defined because of sigularities)'
      ) %>% 
kable_styling(font_size = 7)           # You can change the font size here
```
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...