如何用R语言magick包在生成的PDF中添加可点击超链接？

我正在使用R语言的magick包制作信息图并导出为PDF，希望在生成的PDF输出中插入可点击超链接。请问能否直接通过magick实现该需求？是否存在其他方案，比如重新加载已生成的PDF并插入超链接后重新保存？（目前多数搜索结果指向需创建markdown文档，但我认为这并非理想方案）。

示例代码：

library(magick)
url <- "https://atlas-content-cdn.pixelsquid.com/assets_v2/205/2054680838884300340/jpeg-600/G03.jpg"

# 加载图像
pb <- image_read(url)

# 在左上角添加文本
car <- image_draw(pb) %>% 
  image_annotate(paste("I want this to be a clickable hyperlink to:",url),
                 location=geometry_point(10,10), color = "red", size = 10)

# 保存PDF
image_write(car,"Car.pdf",format="pdf")

期望效果：

1. magick无法直接实现PDF超链接 #

magick的核心是处理光栅/位图图像，导出PDF时只是将像素内容封装成PDF格式，并非创建结构化的PDF文档。超链接属于PDF的结构化注解（元数据），magick不支持编辑这类PDF元素，因此无法直接通过magick添加可点击超链接。

2. 可行替代方案 #

方案一：结合R原生PDF设备与grid包生成带超链接的PDF #

先将magick处理后的图像转为栅格对象，再用R的PDF绘图设备输出，同时通过grid::grid.hyperlink()添加可点击文本。这种方案直接在R内完成，无需额外工具：

library(magick)
library(grid)

url <- "https://atlas-content-cdn.pixelsquid.com/assets_v2/205/2054680838884300340/jpeg-600/G03.jpg"

# 加载图像并转为grid兼容的栅格对象
pb <- image_read(url)
pb_raster <- as.raster(pb)
img_info <- image_info(pb)

# 打开PDF设备，设置尺寸与原图像一致（72为PDF默认DPI）
pdf("Car_with_link.pdf", 
    width = img_info$width / 72, 
    height = img_info$height / 72)

# 绘制图像
grid.raster(pb_raster)

# 添加带超链接的文本
link_text <- paste("I want this to be a clickable hyperlink to:", url)
grid.hyperlink(
  grid.text(link_text, 
            x = unit(10, "pt"), 
            y = unit(img_info$height - 10, "pt"),  # 对应原代码的左上角位置
            gp = gpar(col = "red", fontsize = 10), 
            just = "left"),
  href = url
)

# 关闭PDF设备
dev.off()

方案二：后期给PDF添加超链接（适合已有PDF文件） #

如果已经用magick生成了无超链接的PDF，可以用pdftools配合qpdf工具（需提前安装）来添加超链接，但需要手动计算文本区域的坐标，操作相对繁琐。核心思路是：

1. 用pdftools::pdf_info()获取PDF页面尺寸
2. 构造PDF注解代码描述超链接区域与目标URL
3. 用qpdf命令将注解插入原PDF

不过该方案需要熟悉PDF底层结构，推荐优先使用方案一。

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