r - R markdown 中并排的多个图对用户不友好

Question

R Markdown 中的要求

1. 显示数据饼图
2. 并排显示数据且易于阅读

我是通过“par”和“mfrow”来完成的，这里是带有示例数据的代码

```{r warning=F, message=F, echo=F, fig.width=5, fig.height=4}
per <- c(36,23,13,4,9,15)
ct <- c(36,23,13,4,9,15)
name <- c('MS', 'Google', 'Amazon', 'FB', 'IBM', 'AliBaba')
frame <- data.frame(per,ct,name)
par( mfrow = c(1,2))
pie(frame$ct, frame$name, col = rainbow(length(frame$ct)))
grid.table(frame)

```

代码的问题，两个情节互相覆盖

现在，当我编辑和更改图形宽度时，覆盖问题已得到修复，但文本大小减小到不可读

```{r warning=F, message=F, echo=F, fig.width=25, fig.height=20}
    per <- c(36,23,13,4,9,15)
    ct <- c(36,23,13,4,9,15)
    name <- c('MS', 'Google', 'Amazon', 'FB', 'IBM', 'AliBaba')
    frame <- data.frame(per,ct,name)
    par( mfrow = c(1,2))
    pie(frame$ct, frame$name, col = rainbow(length(frame$ct)))
    grid.table(frame)
```

有人可以建议任何更好的方法或让第二个绘图文本更具可读性和可见性的方法吗。

Answer 1

1. 这个解决方案来自这个 link这应该是从 SO 中的帖子中获取的，但我找不到原始帖子。

2. 我对表格使用了 knitr::kable() 而不是 grid.table()。您可以稍后根据自己的喜好修改表格。

---

<style type="text/css">
.twoC {width: 100%}
.clearer {clear: both}
.twoC .table {max-width: 50%; float: right}
.twoC img {max-width: 50%; float: left}
</style>

```{r pressure, echo=FALSE}
library(tidyverse)
per <- c(36,23,13,4,9,15)
ct <- c(36,23,13,4,9,15)
name <- c('MS', 'Google', 'Amazon', 'FB', 'IBM', 'AliBaba')
frame <- data.frame(per,ct,name)
```
<div class="twoC">
```{r results = 'asis', echo=FALSE}
knitr::kable(frame)
```

```{r echo=FALSE}
pie(frame$ct, frame$name, col = rainbow(length(frame$ct)))
```
</div>
<div class="clearer"></div>