1 사람 얼굴인식1

bnosac GitHub 저장소에서 이미지 딥러닝 처리에 필요한 팩키지를 설치한다. 맥OS에서 설치할 때 발생되는 문제점 OpenMP문제는 R 딥러닝 환경설정: openmp 맥를 참조한다.

devtools::install_github("bnosac/image",
                         subdir = "image.dlib",
                         build_vignettes = TRUE)

devtools::install_github("bnosac/image",
                         subdir = "image.libfacedetection",
                         build_vignettes = TRUE)

1.1 사진 이미지 살펴보기

magick 팩키지로 사진을 일별한다.

library(tidyverse)
library(magick)
library(image.libfacedetection)

test_image <- magick::image_read("fig/people.jpg")

test_image <- test_image %>% 
  image_resize("700")

test_image

1.2 얼굴 추출

image_detect_faces() 함수로 사진속 얼굴을 식별한다.

test_face <- image_detect_faces(test_image)

print(test_face)
$nr
[1] 3

$detections
    x   y width height neighbours angle
1 291  77    29     29         81    -1
2 627 101    30     30         29    -1
3 499 122    28     28         25    -1

attr(,"class")
[1] "libfacedetection"

1.3 추출결과 확인

원본 사진과 인식된 얼굴을 겹쳐 추출결과를 시각적으로 확인한다.

plot(test_face, test_image,
    border = "red",
    lwd = 5,
    col = "blue")

  1. image - Computer Vision and Image Recognition algorithms for R users↩︎