Импорт нескольких JPG с именем переменной

Question

У меня действительно есть относительно странная проблема, которую я пытаюсь решить. R кажется лучшим решением, но, к сожалению, я все еще новичок в этой области.

После этого давайте приступим к решению задачи:

1. Есть папка, где есть 'n' jpg-файлы
2. Эти jpg-файлы имеют совершенно случайное имя
3. Эти изображения можно разделить на две группы (например, цвет фона другой)

Теперь мне нужно загрузить изображение за изображением, понять, находятся ли они в первой или второй группе, отредактировать изображение, сохранить изображение (сохранить высокое качество), а затем сделать это снова и снова для всех изображения.

Таким образом, L oop должен быть написан с такими правилами, по моему мнению:

1. Извлечь все имена файлов в папке
2. Начать L oop
3. Загрузить изображение номер один
4. Если цвет фона равен «синий», измените размер с указанным c числом, Если цвет фона равен «черный», измените размер с другими параметрами c число
5. Сохраните файл с тем же именем и качество
6. Повторите с пункта 3 (Do while)
7. Когда все изображения будут обработаны, завершите L oop

Большое спасибо всем за оплату внимание.

РЕДАКТИРОВАТЬ № 1:

Итак, я попытался найти что-то вокруг, чтобы вы могли увидеть код, который я сделал:

#Line for extract all names of file
files <- as.vector(list.files(path="C:/Users/Desktop/", pattern=".jpg",all.files=T, full.names=F, no.. = T))

#This should be the do while that open all files
mypic1 <- list(files)
        for (i in 21:length(files))
    {mypic1[[i]] <- image_read(files[i])
        }

    #This should be the code that edit the image
    #Case 1 
image_annotate(image, "", size = 13, color = "red", boxcolor = "black", location = "+5+106")

    #Case 2 
image_annotate(image, "", size = 13, color = "red", boxcolor = "black", location = "+55+990")

Отсутствует часть, которая распознает изображение, и я не знаю, как объединить эти строки кода.