Convert Array Bild (EBImage) in R

Question

Das Paket EBImagedisplay eine Funktion hat, die Image Objekte angezeigt werden kann, aber wenn imagematrix, matrix oder array ein Eingang ist, ist es auch möglich (als Raster) anzuzeigen.

Nun, wenn ich zu combine mehrere Bilder versuchen, ist es nur möglich, Image Objekte zu kombinieren, so seit meiner ersten Bilder in imagematrix oder matrix Format sind, kann ich nicht diese combine Funktion verwenden, dann mehrere Bilder anzuzeigen.

Meine Frage ist also: Wie konvertiert man eine Matrix in ein Image Objekt (EBImage)? (Wenn Sie eine andere Funktion haben mehrere Matrizen als Rasterbild angezeigt werden, hilft es auch.)

Answer 1

TL; DR: die Image() Konstruktor Matrizen oder Arrays Image Objekte zu konvertieren.

Sie können einfach zwischen einfachen Matrizen/Arrays und Image Objekten mit Hilfe von imageData() Accessor und Image() Konstruktor wechseln. Eine andere Möglichkeit, eine Pixelintensitätsmatrix auf eine Image zu übertragen, ist die Verwendung von as.Image(). Im folgenden Beispiel wird diese Vorgehensweise bei einem einkanaligen Graustufenbild veranschaulicht.

library(EBImage) 

## sample grayscale image 
f <- system.file("images", "sample.png", package="EBImage") 
x <- readImage(f) 

## extract pixel intensity matrix from the Image object 
m <- imageData(x) 

## convert matrix to Image 
img <- Image(m) 

## combine and display the result 
img2 <- combine(img, img) 

display(img2, method="raster", all=TRUE) 

Wenn Ihr Pixelintensitäten Array enthält getrennte Farbkanäle für die roten, grünen und blauen Komponenten, würden Sie zusätzlich die colormode=Color Argument Image() angeben.

## get sample pixel intensity RGB array 
x <- readImage(system.file("images", "sample-color.png", package="EBImage")) 
a <- imageData(x) 

## convert back to Image 
img <- Image(a, colormode=Color) 

## combine and display the result 
img2 <- combine(img, img) 

display(img2, method="raster", all=TRUE) 

Falls Sie Farbkanäle als separate Matrizen, können Sie sie in einen Farb Image mit Hilfe von rgbImage() kombinieren.

## matrices corresponding to red, green and blue color channels 
r <- a[,,1] 
g <- a[,,2] 
b <- a[,,3] 

## construct an color Image object 
img <- rgbImage(r, g, b)