［R］画像の大きさを変える

magickパッケージのimage_resize関数を使う。元の画像をmagick-image型で用意して、この関数に当てはめればよい。

以下は、声優安野希世乃の公式ウェブサイトのページから画像ファイルをダウンロードしてパソコン内に保存し、その画像の大きさを変えた例。見てのとおりアップロードされているオリジナルの画像は非常に大きい（横3422ピクセル、縦5192ピクセル）ため、それぞれ10%ずつ縮めている。～1.pngがオリジナル、～2.pngが縦横10%に縮めた画像。

> library(magick)
> im <- image_read("https://img.imageimg.net/artist/kiyono-yasuno/img/profile.jpg")
> print(im)
  format width height colorspace matte filesize density
1   JPEG  3422   5192       sRGB FALSE  1103106 350x350
> image_write(im, "R_magick_YasunoKiyono1.png")
> im <- image_resize(im, geometry = "10%")
> print(im)
  format width height colorspace matte filesize density
1   JPEG   342    519       sRGB FALSE        0 350x350
> image_write(im, "R_magick_YasunoKiyono2.png")

R_magick_YasunoKiyono1.png	R_magick_YasunoKiyono2.png