ggplot 绘图中的字体大小相对于使用 knitr 的绘图发生变化

Question

我第一次使用 knitr，但在 ggplot 图中的字体大小存在问题。这是一个示例图：

d <- ggplot(diamonds, aes(x = cut, y = clarity))
d + stat_sum(aes(label=..n..),geom="text",size=8)

在 knitr 中，我的 R 降价中的一个块中有相同的情节：

---
title: "Untitled"
output: html_document
---
```{r, echo=FALSE}
library(ggplot2)
d <- ggplot(diamonds, aes(x = cut, y = clarity))
d + stat_sum(aes(label=..n..),geom="text",size=8)
```

绘图在 RStudio 中或使用 ggsave() 保存时看起来不错。然而，生成的 knitr html 中的绘图中的数字总体上和相对于绘图大小的字体大小要大得多：

在这个例子中，这并不重要，但在我的数据中，数字开始相互重叠/耗尽它们的单元格。

另一个复杂之处是绘图是由一个包完成的，所以我不能轻易更改 stat_sum 调用中的大小选项。

Answer 1

尝试调整fig.height 和fig.width：

---
title: "Untitled"
output: html_document
---
```{r, echo=FALSE,fig.height=10,fig.width=10}
library(ggplot2)
d <- ggplot(diamonds, aes(x = cut, y = clarity))
d + stat_sum(aes(label=..n..),geom="text",size=8)
```

如果不想图那么大，可以调整out.height和out.width：

---
title: "Untitled"
output: html_document
---
```{r, echo=FALSE,fig.height=10,fig.width=10,out.height=600,out.width=600}
library(ggplot2)
d <- ggplot(diamonds, aes(x = cut, y = clarity))
d + stat_sum(aes(label=..n..),geom="text",size=8)
```