使用R语言magick包进行透视变换未达预期，求问题排查

你的透视变换结果不符合预期，主要有以下几个问题：

1. 输入坐标超出图片有效范围 #

原始图片的像素坐标范围是从(0,0)（左上角）到(图片宽度-1, 图片高度-1)（右下角），但你定义的inp中存在负的x/y值，这会导致透视变换的矩阵计算出现错误，无法正确映射顶点位置。

2. 未指定输出尺寸 #

你期望输出334x520的矩形，但image_distort默认会保持原始图片的尺寸，这会导致校正后的内容被裁剪或拉伸，无法得到你想要的标准矩形。

3. 坐标映射需严格对应顺序 #

需要确保输入的4个点和输出的4个点保持一致的顺时针/逆时针顺序（比如左上→左下→右下→右上），如果顺序混乱，变换后的图形会出现扭曲。

修正后的代码 #

library(magick)

imgfile <- "test_skew.jpg"
img <- magick::image_read(imgfile)
img_info <- image_info(img)  # 获取图片宽高，用于验证坐标范围

# 修正输入坐标：移除负值，确保在图片有效范围内（需根据实际图片调整准确顶点）
inp <- list(x = c(29.57, 0, 322.64, 307.46), 
            y = c(0, 515.00, 490.48, 0))

# 确认输出坐标顺序与输入一致：左上→左下→右下→右上
outp <- list(x = c(0, 0, 334, 334),
             y = c(0, 520, 520, 0))

# 构造变换参数：每个输入点对应输出点，格式为inx1, iny1, outx1, outy1, ...
distc <- c(
  inp$x[1], inp$y[1], outp$x[1], outp$y[1],
  inp$x[2], inp$y[2], outp$x[2], outp$y[2],
  inp$x[3], inp$y[3], outp$x[3], outp$y[3],
  inp$x[4], inp$y[4], outp$x[4], outp$y[4]
)

# 执行透视变换，指定输出尺寸
corrected_img <- magick::image_distort(
  img, 
  "perspective", 
  distc,
  viewport = geometry_size_pixels(width = 334, height = 520)  # 设置输出的目标尺寸
)

# 查看结果
print(corrected_img)

关键注意事项 #

• 坐标修正：重新标记原始图片上的黑色边框顶点，确保所有坐标都在0 ≤ x < img_info$width和0 ≤ y < img_info$height范围内，避免负值。
• 顺序一致性：输入和输出的四个点必须严格对应，比如都按左上、左下、右下、右上的顺序排列，否则变换会出现错位。
• 输出尺寸匹配：viewport参数必须和你定义的outp坐标的最大x/y值一致（这里是334和520），确保输出图片正好容纳校正后的矩形。

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