R - отображает интересную область нескольких изображений для сравнения в почти пиксельном разрешении - PullRequest
0 голосов
/ 22 февраля 2019

Я делаю несколько фильтров (свертка) и хочу подробно их проанализировать.Это означает, что мне нужно увеличить масштаб и взглянуть на «почти пиксельный масштаб», потому что там не так много изменений.Вот мой код в R 3.5

library(EBImage)
img = readImage("Auto_verrauscht.jpg")

#0| Here we have used a Gaussian filter of width 5 given by sigma
w = makeBrush(size = 31, shape = 'gaussian', sigma = 5)
img_0 = filter2(img, w)
writeImage(img_0, "Auto_verrauscht_0_gaussian_0.png") # ?writeImage

#1| 
w = makeBrush(size = 3, shape = 'gaussian', sigma = 5)
img_1 = filter2(img, w)
writeImage(img_0, "Auto_verrauscht_0_gaussian_1.png") # ?writeImage

#2| 
w = makeBrush(size = 7, shape = 'gaussian', sigma = 5)
img_2 = filter2(img, w)
writeImage(img_0, "Auto_verrauscht_0_gaussian_2.png") # ?writeImage

#3| 
w = makeBrush(size = 3, shape = 'gaussian', sigma = 2.5)
img_3 = filter2(img, w)
writeImage(img_0, "Auto_verrauscht_0_gaussian_3.png") # ?writeImage

#4| 
w = makeBrush(size = 7, shape = 'gaussian', sigma = 2.5)
img_4 = filter2(img, w)
writeImage(img_0, "Auto_verrauscht_0_gaussian_4.png") # ?writeImage

#5| 
w = makeBrush(size = 3, shape = 'gaussian', sigma = 7.5)
img_5 = filter2(img, w)
writeImage(img_0, "Auto_verrauscht_0_gaussian_5.png") # ?writeImage

#6| 
w = makeBrush(size = 7, shape = 'gaussian', sigma = 7.5)
img_6 = filter2(img, w)
writeImage(img_0, "Auto_verrauscht_0_gaussian_6.png") # ?writeImage

#Combine all the images into a collection of images
img_c = combine(img,img_0,img_1,img_2,img_3,img_4,img_5,img_6)

#Display all the images at once
display(img_c, method="raster", all = TRUE)

Мой вопрос сейчас: есть ли возможность установить коэффициент масштабирования или что-то еще, что только небольшая область изображений отображается вместе, что я могу видеть непосредственно, еслифильтр полезен или нет?В противном случае мне придется увеличивать каждое изображение отдельно, а это занимает много времени.

РЕДАКТИРОВАТЬ: Я нашел эту функцию Zoom .Там я должен установить расширение.Кто-нибудь может объяснить это мне, может быть, с примером кода?

...