R Language
래스터 및 이미지 분석

소개

GLCM 텍스처 계산

Gray Level Co-Occurrence Matrix (Haralick et al., 1973) 텍스처는 이미지 분석을위한 강력한 이미지 특징이다. glcm 패키지는 R의 RasterLayer 객체에 대한 그러한 합법적 인 기능을 계산하는 사용하기 쉬운 기능을 RasterLayer 합니다.

library(glcm)
library(raster)

r <- raster("C:/Program Files/R/R-3.2.3/doc/html/logo.jpg")
plot(r)

GLCM 텍스처를 한 방향으로 계산

rglcm <- glcm(r, 
              window = c(9,9), 
              shift = c(1,1), 
              statistics = c("mean", "variance", "homogeneity", "contrast", 
                             "dissimilarity", "entropy", "second_moment")
              )

plot(rglcm)

계산 회전 불변 텍스쳐 피처

텍스처의 특징은 또한 4 방향 (0 °, 45 °, 90 °, 135 °)으로 계산 된 다음 하나의 회전 불변 텍스처에 결합 될 수 있습니다. 이를위한 핵심은 shift 매개 변수입니다.

rglcm1 <- glcm(r, 
              window = c(9,9), 
              shift=list(c(0,1), c(1,1), c(1,0), c(1,-1)), 
              statistics = c("mean", "variance", "homogeneity", "contrast", 
                             "dissimilarity", "entropy", "second_moment")
              )

plot(rglcm1)

수학 형태학

mmand 패키지는 n 차원 배열에 대한 수학 Morphologies의 계산을위한 함수를 제공합니다. 약간의 해결 방법을 통해 래스터 이미지에 대해서도 계산할 수 있습니다.

library(raster)
library(mmand)

r <- raster("C:/Program Files/R/R-3.2.3/doc/html/logo.jpg")
plot(r)

처음에는 커널 (움직이는 창)을 크기 (예 : 9x9)와 모양 유형 (예 : disc , box 또는 diamond )으로 설정해야합니다.

sk <- shapeKernel(c(9,9), type="disc")

그 후, 래스터 레이어는 erode() 함수에 대한 입력으로 사용되는 배열로 변환되어야합니다.

rArr <- as.array(r, transpose = TRUE)
rErode <- erode(rArr, sk)
rErode <- setValues(r, as.vector(aperm(rErode)))

erode() 외에도 형태 학적 함수 dilate() , opening() 및 closing() 을 이와 같이 적용 할 수 있습니다.

plot(rErode)