Как превратить файл TIFF в двоичное изображение в R?

Question

У меня есть файл TIFF, и мне нужно превратить его в двоичное изображение.Это возможно в R?Как мне написать аргументы для установки порога?

Answer 1

Другой вариант - использовать пакет magick R, основанный на библиотеке ImageMagick:

library(magick)
#> Linking to ImageMagick 6.9.7.4
#> Enabled features: fontconfig, freetype, fftw, lcms, pango, x11
#> Disabled features: cairo, ghostscript, rsvg, webp

logo <- image_read("logo:")

plot(logo)

logo_gray <- image_convert(logo, colorspace = "Gray")

plot(logo_gray)

logo_bw <- logo_gray %>%
  image_threshold(type = "white", threshold = "50%") %>%
  image_threshold(type = "black", threshold = "50%")

plot(logo_bw)

^{Создано в 2019-03-20 с помощью пакета Представление (v0.2.1)}

В качестве альтернативы, если вы хотите использовать локальный адаптивный порог, вам следует взглянуть на функцию image_lat().

Answer 2

Вы можете использовать функцию threshold библиотеки imager.Из документации:

library(imager)
im <- load.image("cameraman.tif") # provide the correct image path 
im.g <- grayscale(im)
im.g %>% plot

threshold(im.g,"15%") %>% plot # the threshold will be set at 15th percentile 

threshold(im.g,"auto") %>% plot # a threshold will be computed automatically using kmeans

#If auto-threshold is too high, adjust downwards or upwards using "adjust"
threshold(im,adjust=1.3) %>% plot