更改大小和纵横比而不失真答案

【问题标题】：Change size and aspect ratio without distortion更改大小和纵横比而不失真
【发布时间】：2019-02-09 20:05:45
【问题描述】：

我正在寻找一种在 R 中使用不同尺寸和纵横比的较大图像制作 400x400 像素图像 (.jpg/.png) 而不扭曲它的方法。新图应该有原图的大部分内容，但可以左右剪掉一点，这样就变成了一个不变形的正方形。

我走了多远（失真）：

library(magick)

pics <- list.files("./")

for(i in 1:length(pics)){

  a <- image_read((paste0("./", pics[i], sep="")))

  b<-image_resize(a, "300x300!")

  image_write(b, path = paste0("./", pics[i], sep=""), format = "jpg")
}

提前致谢！

多米尼克。

【问题讨论】：

标签： r image-processing magick-r-package

【解决方案1】：

您可以在调整大小行b<-image_resize(a, "300x300!") 之前添加这些行以裁剪a，使其成为正方形。

newdim <- min(image_info(a)[c('width', 'height')])
a <- image_crop(a, geometry = geometry_area(newdim, newdim))

【讨论】：

很好，就是这样！非常感谢！