моя цель - рассчитать зелень картофеля, как показано на изображении
Для этого я сначала выполняю следующие шаги: - Загрузите изображение RGB - Извлеките полосы R, G и B - Рассчитайте желаемый индекс зеленого цвета для всего изображения
img<-load.image(image.files[i])
R<-R(img)
G<-G(img)
B<-B(img)
ExGreen<-2*G-R-B
Это приводит к следующему типу изображения:
Чтобы оценить индекс зелени картофеля, мне теперь нужно удалить фон (т.е. почву) с переднего плана (т.е. урожай), а затем рассчитать среднее значение индекса зелени.
Чтобы удалить фон, я применил функцию 'threshold' пакета EBImage, а именно:
ExGreen<-(threshold(ExGreen,thr="auto",approx=FALSE,adjust=1))
Эта функция очень хорошо удаляет фон, но визуализирует черно-белое изображение ( урожай картофеля становится белым, как показано на изображении ниже)
Следовательно, я не могу рассчитать средний индекс зелени картофеля / переднего плана в качестве значений ExGreen иметь е пропал без вести ...
Итак, теперь мне интересно, как я могу сделать фон черным, не превращая пиксели кадрирования в белый ..