# k-means法

library(imager)

# グレースケール画像
im <- grayscale(load.image("https://www.kitp.org/numericalipb/nameplate.jpg"))

# k-means法による2値化画像
im.bin <- threshold(im, "auto")

layout(t(1 : 2))
plot(im, main = "元の画像")
plot(im.bin, main = "2値化")
layout(1)