이미지 스무딩 R

Question

어떻게 R에서이 그림을 부드럽게 할 수있어 두 개의 피크 만 남았습니까?

만약 이것이 1d 데이터가된다면, 나는 달리기를하거나 회귀 함수를 적합하게 할 것입니다. 그러나이 방법을 2 차원 행렬에 적용하는 것에 대한 구체적인 정보는 찾지 못했습니다. 예를 들어 stats 패키지의 filter()을 사용하려고했습니다.

또한 kriging에 대해 생각했지만 보간법에 대한 자세한 내용은 무엇입니까?

Answer 1

패키지 spatstat 가우시안 블러 applicates blur() 기능을 보유하고있다. 이것은 대부분의 소음이 사라지고 두 개의 주요 피크가 명확하게 구별되는 방식으로 그림을 그립니다.

효과는 다음 그림에서 볼 수 있으며 특히 3 차원 플롯에서 특히 두드러집니다.

그림을 생성하는 코드

했다 :

library(jpeg) 
library(fields) 
library(spatstat) 

picture <- readJPEG("~/Downloads/spectrogram.png.jpeg") 
picture2 <- as.matrix(blur(as.im(picture), sigma=6)) 

layout(matrix(c(1:4), nrow=2)) 
image.plot(picture, col=gray.colors(50), main="original image", asp=1) 
image.plot(picture2, col=gray.colors(50), main="blurred with sigma = 6", asp=1) 
drape.plot(1:nrow(picture), 1:ncol(picture), picture, border=NA, theta=0, phi=45, main="original spectrogram") 
drape.plot(1:nrow(picture), 1:ncol(picture), picture2, border=NA, theta=0, phi=45, main="blurred with sigma = 6") 

Answer 2

난 당신이 래스터 패키지의 focal 기능을 살펴해야한다고 생각합니다. 합니다 (raster 문서에서 복사) 예를 들어 :

r <- raster(ncols=36, nrows=18, xmn=0) 
r[] <- runif(ncell(r)) 
# 3x3 mean filter 
r3 <- focal(r, w=matrix(1/9,nrow=3,ncol=3)) 

문서는 자세한 내용을 포함한다.

Answer 3

EBImage 패키지를 꼭보고 싶습니다. 이미지를 부드럽게하는 여러 가지 기능이 있습니다. 예를 들어

, 중앙값 필터 :

# Load EBImage up 
require(EBImage) 
# Read in your image 
im = readImage('/path/to/your/image') 
# Apply a median filter with window size of 7 
im.med = medianFilter(im, size=7) 
# Display image 
display(im.med) 

이

또는 가우시안 블러 시도 할 수 :이 도움이

# Apply a gaussian blur with sigma=4 
im.gaus = gblur(im, sigma=4) 
# Display image 
display(im.gaus) 

희망을!