如何在R语言中为PDF添加矩形注释？

可以实现，无需通过reticulate调用Python，以下是两种实用方案：

方案一：使用R包 pdfannotator #

pdfannotator是专门用于PDF注释编辑的R包，支持添加矩形注释、高亮等操作。

示例代码 #

# 安装并加载包
install.packages("pdfannotator")
library(pdfannotator)

input_pdf <- "https://cran.r-project.org/web/packages/pdftools/pdftools.pdf"
output_pdf <- "outfile.pdf"

# 添加矩形注释
add_rect_annotation(
  input = input_pdf,
  output = output_pdf,
  page = 1,  # 目标页码
  x1 = 0, y1 = 100, x2 = 200, y2 = 500,  # 矩形坐标
  fill_color = "red",
  fill_opacity = 0.5,
  border_color = "red"
)

方案二：通过system()调用Linux工具 mutool #

如果你可以使用Linux环境，mutool是MuPDF的命令行工具（和你提到的PyMuPDF同源），能直接添加矩形注释。

前置操作 #

先在系统中安装mupdf-tools，Debian/Ubuntu下执行：

sudo apt install mupdf-tools

R中调用示例 #

input_pdf <- "https://cran.r-project.org/web/packages/pdftools/pdftools.pdf"
output_pdf <- "outfile.pdf"

# 构造mutool命令
mutool_cmd <- paste0(
  "mutool draw -o ", output_pdf,
  " -c red -f red -a 0.5 ",  # -c边框色，-f填充色，-a透明度
  input_pdf,
  " 1 rect 0 100 200 500"  # 页码 + 矩形坐标（PDF坐标以左下角为原点）
)

# 执行命令
system(mutool_cmd)

注意事项 #

• pdftools仅支持PDF内容提取，不支持写入操作，因此无法用它实现注释添加。
• 使用pdfannotator时，需注意部分PDF的坐标原点可能存在差异，可根据实际情况调整坐标值。

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