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

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

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

report5.R

# レポート
 
library(imager)
 
# グレースケール画像
im <- grayscale(load.image("https://www.kitp.org/numericalipb/nameplate1.jpg"))
 
 
# 2値化
im.bin <- threshold(im, "auto")
 
# ラベリング
x <- label(im.bin)
 
# ラベル付けされた図形の面積（画素数）
areas <- table(x)
 
# 面積が100以上の図形のラベルと面積を出力
print(areas[areas >= 100])
 
# ラベルを指定して図形を抜き出す
im.ex <- im
im.ex[x != 6 & x != 7 & x != 14] <- 1
 
layout(t(1 : 2))
plot(im, main = "元画像")
plot(im.ex, main = "抜き出した図形")
layout(1)

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