时间戳

首页 > 解决方案 > 在 Rmarkdown 中对齐表格并绘图

r - 在 Rmarkdown 中对齐表格并绘图

问题描述

我想在绘图旁边放置一个表（绘图基于该表），并理想地在视觉上将表行与绘图的刻度对齐。目前我正在尝试手动操作theme(plot.margin)，fig.height结果还可以，但是一旦发生变化（在情节中添加图例或在表格中添加行），我必须重新迭代。

有没有更好的方法以更自动化的方式实现相同的结果？也许将表格添加到情节中？

截图

手动对齐 对齐

无需手动对齐 未对齐

代码

---
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>

标签： rggplot2r-markdownknitrkable

解决方案

推荐阅读