在R中转换32位TIFF至imager兼容格式时如何保留数据信息？

首先咱们先理清问题根源：你手里的是32位浮点型TIFF，这类图像的数值范围不是常规8位图像的0-255，而是5-314.1667的浮点值。writeJPEG/writePNG默认要求输入是0-1范围的归一化值，直接写入会把超出范围的数值截断，导致图像洗出；而writeTIFF默认会强制归一化到0-1，所以会报错说数值超出范围。

下面给你几个实用的解决方案，按需选择：

方案1：直接用imager读取原始TIFF（最省心） #

imager包的load.image()函数本身就支持读取32位浮点TIFF，不需要手动转换格式，还能完整保留原始数据信息。试试这个：

library(imager)
# 直接加载原始TIFF，imager会自动处理数据类型
img <- load.image("image1.tif")

# 验证数据范围，应该和你用readTIFF读取的一致
range(img)

至于那个“Unknown field with tag 33821”的警告，是TIFF的自定义元数据标签（比如DPI或其他私有信息），imager读取时会自动忽略它，完全不影响数据本身，不用在意。

方案2：如果需要先转换格式再读取（保留原始数值） #

如果你必须先把图像转成另一种格式再用imager处理，推荐保存为32位浮点TIFF，这样能完整保留原始数值。关键是用writeTIFF时关闭自动归一化并指定32位采样：

# 读取原始TIFF，native=FALSE确保返回原始浮点数值
img <- readTIFF("image1.tif", native = FALSE)

# 保存为32位浮点TIFF，关闭自动归一化
writeTIFF(img, "image2.tiff", bits.per.sample = 32, normalize = FALSE)

# 再用imager读取转换后的文件
library(imager)
img_imager <- load.image("image2.tiff")

这样处理后，图像的数值范围和原始文件完全一致，不会丢失任何数据。

方案3：转成JPEG/PNG（仅用于可视化，不保留原始数值） #

如果你只是需要转成JPEG/PNG做可视化，不需要保留原始数值的话，得先把数据线性缩放至0-1范围，这样就能保留阴影信息：

# 读取原始数据
img <- readTIFF("image1.tif", native = FALSE)

# 线性缩放至[0,1]区间
img_scaled <- (img - min(img)) / (max(img) - min(img))

# 保存为JPEG，这次就不会出现洗出的问题了
writeJPEG(img_scaled, "image1_scaled.jpeg")

注意：这个方法会改变原始数值，只适合可视化场景，不适合后续的定量分析。

备注：内容来源于stack exchange，提问作者Lina Bird