Выровнять таблицу и график в Rmarkdown - PullRequest
Новая
       76

Выровнять таблицу и график в Rmarkdown

0 голосов
/ 26 марта 2020

Я хочу разместить таблицу рядом с графиком (график основан на самой таблице) и в идеале визуально выровнять строки таблицы по меткам графика. В настоящее время я играю с theme(plot.margin) и fig.height, чтобы попытаться сделать это вручную, и результаты OKi sh, но как только что-то меняется (добавление легенд на график или строк в таблицу), я должен повторно -iterate.

Существуют ли более эффективные подходы для достижения тех же результатов более автоматизированным способом? Может быть добавление таблицы к сюжету?

Скриншоты

С ручным выравниванием Aligned

Без ручного выравнивания Unaligned

Код 

---
output: html_document
---

```{r setup, include = FALSE}
library(kableExtra)
library(tibble)
library(dplyr)
library(ggplot2)
knitr::opts_chunk$set(echo = FALSE,
                      message = FALSE,
                      warning = FALSE,
                      fig.align = "center")
```

<div class = "row">
<div class = "col-md-3">
```{r}
raw_dat <- mtcars[1:15, ] %>% rownames_to_column(var = "id") %>% select(id, mpg)
kable(raw_dat) %>%
   kable_styling(bootstrap_options = c("striped", "hover", "condensed", "responsive"),
                 full_width = FALSE)
```
</div>
<div class = "col-md-9">
```{r, fig.height=5.5}
   ggplot(raw_dat, aes(factor(id, rev(id)), mpg)) +
   geom_point() +
   coord_flip() +
   theme(plot.margin = margin(0.6, unit = "cm"))
```
</div>
</div>
...