缩放直接在Xaringan中渲染的ggplot

我在我的Rmarkdown文件中绘制了以下绘图，并使用Xaringan进行渲染

---
title: "myTitle"
output:
  xaringan::moon_reader:
    css: ["default", "kunoichi", "ninjutsu", "metropolis-fonts"]
    lib_dir: libs
    chakra: libs/remark-latest.min.js
    seal: false
    nature:
    countIncrementalSlides: false
    ratio: '16:9'
---

# Two pretty gaussians  

## and a few vertical lines

```{r, echo=FALSE, message=FALSE, warning=FALSE}
library(cowplot)
ggplot(data = data.frame(x = c(-3, 3)), aes(x)) +
  stat_function(fun = dnorm, n = 101, args = list(mean = 1, sd = 1)) + 
  stat_function(fun = dnorm, n = 101, args = list(mean = -1, sd = 1)) + 
  geom_vline(xintercept = 0, colour="black", linetype = "solid") +
  geom_vline(xintercept = c(-1.5,1.5), colour="black", linetype = "longdash") +
  ylab("Density") + xlab("\'Internal Signal\'") +
  scale_y_continuous(breaks = NULL)
```

这将导致下面的演示。我只想让绘图变得更小，而不需要间接地将它保存为图像，然后调用它并缩放它

有办法吗？

使用out.width或out.height都有效，同时保持纵横比。同时使用它们可以改变纵横比。按照@RichardTelford的建议，使用fig.width或fig.height也可以，但不能保持纵横比。不过，您可以同时使用这两种方法来获得正确的纵横比

底线：如果我只是想缩小图像的比例，我会使用out.width或out.height

使用out.width或out.height均可工作，同时保持纵横比。同时使用它们可以改变纵横比。按照@RichardTelford的建议，使用fig.width或fig.height也可以，但不能保持纵横比。不过，您可以同时使用这两种方法来获得正确的纵横比

底线：如果我只是想缩小图像的比例，我会使用out.width或out.height

---

你不能设置块选项fig.height和fig.width吗？啊！当然可以。谢谢。你不能设置块选项fig.height和fig.width吗？啊！当然可以。谢谢

---
title: "myTitle"
output:
  xaringan::moon_reader:
    css: ["default", "kunoichi", "ninjutsu", "metropolis-fonts"]
    lib_dir: libs
    chakra: libs/remark-latest.min.js
    seal: false
    nature:
    countIncrementalSlides: false
    ratio: '16:9'
---

# Two pretty gaussians  

## and a few vertical lines

```{r, echo=FALSE, message=FALSE, warning=FALSE, out.width = '200px'}
library(cowplot)
ggplot(data = data.frame(x = c(-3, 3)), aes(x)) +
  stat_function(fun = dnorm, n = 101, args = list(mean = 1, sd = 1)) + 
  stat_function(fun = dnorm, n = 101, args = list(mean = -1, sd = 1)) + 
  geom_vline(xintercept = 0, colour="black", linetype = "solid") +
  geom_vline(xintercept = c(-1.5,1.5), colour="black", linetype = "longdash") +
  ylab("Density") + xlab("\'Internal Signal\'") +
  scale_y_continuous(breaks = NULL)
```