图像脚注( Bookdown )

Question

如何在bookdown::pdf_document2中的图像下面添加一个图形注释？对于由ggplot2创建的地块来说，这是相对容易的。grid.arrange可以使用grid.arrange(<plot>, bottom = <figure_notes>)完成这项工作。但是，如果我手动插入一个图像，例如，knitr::include_graphics(rep("images/knit-logo.png", 3))，有没有办法在其中添加一个数字注释？我看到了一个knitr选项，fig.subcap。但这不能编译：

```{r fig.show="hold", fig.cap = "a", fig.subcap = "b"}

( knitr::include_graphics(rep("images/knit-logo.png"，3)

这将返回：

This is pdfTeX, Version 3.14159265-2.6-1.40.18 (MiKTeX 2.9.6350 64-bit)
entering extended mode
! Undefined control sequence.
<recently read> \subfloat 

Error: Failed to compile miniSample.tex. See miniSample.log for more info.

谢谢

Answer 1

找到了一个权宜之计：

1. 用magick::image_read将图像读取到R中；
2. 用raster将图像转换为rasterGrob项目；
3. 用textGrob创建一个便条，用grid.arrange表示；
4. 使用grid.arrange将图像与备注一起呈现。 plot_A <- magick::image_read(<path>) %>% rasterGrob(interpolate = TRUE) note <- textGrob("This is a note.") grid.arrange(plot_A, bottom = note)

Answer 2

如果要使用子图，则必须在subfig中加载LaTeX包。这可以通过在YAML中使用header-includes参数来完成，正如解释的here那样。

下面是一个最小的、可复制的示例，它创建一个本地图像"temp.jpg“，然后生成三个子图：

---
output: pdf_document
header-includes:
   - \usepackage{subfig}
---

```{r}

jpeg(文件名= "temp.jpg")

阴谋(汽车)

dev.off()

```{r fig.show="hold", fig.cap = "a", fig.subcap = c("Your Caption", "Another Caption", "Isn't this great"), fig.ncol = 3, out.width="33%"}

knitr::include_graphics(rep("temp.jpg"，3))

​

​

查看这篇文章以获得原始描述：Subfigures or Subcaptions with knitr?