如何通过knitr为R Markdown中插入的PDF图片添加边框？

knitr本身没有为include_graphics()提供直接添加边框的参数，但针对PDF输出场景，你可以通过以下几种方法实现需求：

方法1：利用LaTeX的\fbox命令（最直接） #

因为R Markdown生成PDF依赖LaTeX，你可以直接输出LaTeX代码包裹图片，快速实现边框效果：

---
output: pdf_document
---

```{r echo=FALSE, results='asis'}
# 调整width参数适配页面宽度，\fbox默认生成黑色细边框
cat('\\fbox{\\includegraphics[width=0.8\\linewidth]{path/to/figure.pdf}}')

如果需要更粗的边框或调整内边距，可以修改LaTeX参数：
```r
cat('\\fboxrule=2pt \\fboxsep=0pt \\fbox{\\includegraphics[width=0.8\\linewidth]{path/to/figure.pdf}}')

方法2：用R的grid包绘制带边框的图片 #

通过grid包读取PDF图片并手动添加边框，无需依赖LaTeX命令：

---
output: pdf_document
---

```{r echo=FALSE}
library(grid)
library(pdftools)

# 读取PDF图片的第一页（若有多页可修改page参数）
img_raster <- pdf_render_page("path/to/figure.pdf", page = 1)
img_grob <- rasterGrob(img_raster)

# 绘制图片并添加自定义边框
grid.newpage()
grid.draw(img_grob)
# col控制边框颜色，lwd控制边框粗细，fill=NA确保不填充背景
grid.rect(gp = gpar(col = "black", lwd = 2, fill = NA))

## 方法3：用ggplot2包裹图片添加边框
将图片嵌入ggplot画布，通过theme配置边框样式：

```r
---
output: pdf_document
---

```{r echo=FALSE}
library(ggplot2)
library(pdftools)

img_raster <- pdf_render_page("path/to/figure.pdf", page = 1)
img_grob <- rasterGrob(img_raster)

ggplot() +
  annotation_custom(img_grob, xmin = -Inf, xmax = Inf, ymin = -Inf, ymax = Inf) +
  theme(
    panel.border = element_rect(color = "black", fill = NA, size = 2),
    panel.background = element_blank(),
    # 隐藏所有坐标轴元素，只保留边框
    axis.text = element_blank(),
    axis.title = element_blank(),
    axis.ticks = element_blank()
  )

内容的提问来源于stack exchange，提问作者shoebird