r - 在R中调整图像大小

Question

我正在尝试使用R中的某些图像数据，但无法弄清楚如何调整图像大小以确保它们的大小相同。

在Python中，我按以下方法处理此问题：

from PIL import Image
import numpy as np

size = (100, 100)
img = Image.open(filename)
img = img.resize(size)
img = np.array(img.getdata())

在R中，我无法找到可以完成相同任务的库。
我能得到的最远的是：

library(jpeg)

img <- readJPEG(filename)
# Need something here to resize
img <- as.matrix(img)

最简单的方法是调用像Pillow这样的库，但是正如我所说，我似乎找不到任何东西。

谢谢，

Answer 1

您可以借助Bioconductor软件包EBImage（R的图像处理和分析工具箱）轻松完成此操作。要安装该软件包，请使用：

source("http://bioconductor.org/biocLite.R")
biocLite("EBImage")

然后，可以使用EBImage提供的功能来加载和缩放图像，如以下示例所示。

library("EBImage")

x <- readImage(system.file("images", "sample-color.png", package="EBImage"))

# width and height of the original image
dim(x)[1:2]

# scale to a specific width and height
y <- resize(x, w = 200, h = 100)

# scale by 50%; the height is determined automatically so that
# the aspect ratio is preserved
y <- resize(x, dim(x)[1]/2)

# show the scaled image
display(y)

# extract the pixel array
z <- imageData(y)

# or
z <- as.array(y)

有关EBImage提供的功能的更多示例，请参见软件包 vignette。