R中grid图形：降低TIFF栅格图像/grob分辨率的最简跨平台方案

对于你的需求（导入TIFF、降采样、通过ggplot输出PDF），**tiff包 + ggplot2**是最简单、跨平台性最好且依赖最少的方案，理由如下：

为什么这个方案最优？ #

• tiff包：轻量级纯R包，无外部依赖（无需安装ImageMagick等第三方软件），跨Windows/macOS/Linux平台，仅负责读取TIFF图像，功能精准匹配需求。
• ggplot2：你已因输出PDF依赖它，其内置的图像渲染机制可直接完成降采样——无需额外编写降采样逻辑，通过控制输出尺寸即可实现。

其他方案的不足 #

• magick：需依赖外部ImageMagick环境，安装配置步骤更多，功能远超你的需求。
• terra/raster：专为空间栅格数据设计，针对普通图像的降采样属于大材小用，引入不必要的复杂度。
• EBImage：聚焦生物医学图像处理，包体积大，依赖更多非必要功能。
• grid：虽为ggplot的底层依赖，但无直接读取TIFF的功能，仍需配合其他图像读取包才能完成任务，并非独立解决方案。

具体实现代码 #

1. 安装并加载必要包 #

install.packages("tiff")
library(tiff)
library(ggplot2)

2. 读取TIFF并输出降采样后的PDF #

方式一：通过输出尺寸自动降采样（最简单）

直接控制PDF输出的宽高，ggplot会自动将图像缩放到对应尺寸，实现降采样效果：

# 读取TIFF图像
img <- readTIFF("your_input.tiff")

# 生成PDF：通过width/height参数控制降采样比例
ggplot() +
  annotation_raster(img, xmin = 0, xmax = 1, ymin = 0, ymax = 1) +
  theme_void()  # 移除坐标轴和背景（可选）
ggsave("output_downsampled.pdf", width = 4, height = 4)  # 调整宽高以获得合适分辨率

方式二：手动降采样（减少内存占用）

若原始图像过大，可先手动降采样再输出：

img <- readTIFF("your_input.tiff")

# 按2倍比例降采样（取每2个像素中的1个）
downsample_factor <- 2
downsampled_img <- img[seq(1, nrow(img), downsample_factor), 
                       seq(1, ncol(img), downsample_factor), ]

# 输出PDF
ggplot() +
  annotation_raster(downsampled_img, xmin = 0, xmax = 1, ymin = 0, ymax = 1) +
  theme_void()
ggsave("output_downsampled.pdf", width = 4, height = 4)

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