r - 导入多个带变量名的 jpg

Question

我实际上有一个我正在尝试解决的相对奇怪的问题。R 似乎是最好的解决方案，但不幸的是我仍然是这方面的初学者。

之后，让我们继续执行问题任务：

1. 有一个文件夹，其中有'n'个jpg文件
2. 这些 jpg 文件，名字很随意
3. 这些图像，可以分为两组（例如，背景颜色不同）

现在我必须逐个加载图像，了解它们是在第一组还是第二组，编辑图像，保存图像（保持高质量），然后对所有图像一次又一次地执行此操作。

所以我认为循环应该用这些规则编写：

1. 提取文件夹中所有文件名
2. 开始循环
3. 加载第一张图片
4. 如果背景颜色等于“蓝色”，则使用特定数字调整大小，如果背景颜色等于“黑色”，则使用其他特定数字调整大小
5. 保存文件保持相同的名称和质量
6. 从第 3 点开始重复（Do while）
7. 处理完所有图像后，结束循环

非常感谢大家的关注。

编辑编号 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")

缺少识别图像的部分，我不知道如何组合这些代码行。

标签： rimageloopsjpegedit