【数値情報処理b】第5回の答え

課題

label.R を書き換えて以下の画像から「公」の文字のみを抜き出すプログラムを作成しなさい。

https://www.kitp.org/numericalipb/nameplate1.jpg

ただし、画像は人によって違う。

解答例

report5.R
  2. # レポート
  3.  
  4. library(imager)
  5.  
  6. # グレースケール画像
  7. im <- grayscale(load.image("https://www.kitp.org/numericalipb/nameplate1.jpg"))
  8.  
  9.  
  10. # 2値化
  11. im.bin <- threshold(im, "auto")
  12.  
  13. # ラベリング
  14. x <- label(im.bin)
  15.  
  16. # ラベル付けされた図形の面積（画素数）
  17. areas <- table(x)
  18.  
  19. # 面積が100以上の図形のラベルと面積を出力
  20. print(areas[areas >= 100])
  21.  
  22. # ラベルを指定して図形を抜き出す
  23. im.ex <- im
  24. im.ex[x != 6 & x != 7 & x != 14] <- 1
  25.  
  26. layout(t(1 : 2))
  27. plot(im, main = "元画像")
  28. plot(im.ex, main = "抜き出した図形")
  29. layout(1)

人によって 6 行目と 23 行目が異なる。