zkm1996 下面这个示例不知道是不是你要表达的意思。
---
output:
bookdown::pdf_book:
latex_engine: xelatex
keep_tex: yes
toc: false
documentclass: ctexart
---
```{r include=FALSE}
knitr::opts_chunk$set(message = FALSE, echo = FALSE)
```
# 生成图片
图 \@ref(fig:scatter1) 是一张无聊的散点图。
```{r scatter1, fig.cap="散点图"}
library(ggplot2)
ggplot(women, aes(height, weight)) + geom_point()
ggsave("./women.png")
```
# 调整图片大小
图 \@ref(fig:scatter2) 既无聊且更丑，但可能心美。
```{r scatter2, fig.cap="缩放的散点图", fig.align='right', out.height='50%', out.width='50%'}
knitr::include_graphics("./women.png")
```
