受此线程启发
How do I find Waldo with Mathematica?
我从未在R中完成图像处理，但也许其他人想要共享...
谢谢!
最佳答案
这是使用raster包的开始。我不知道我是否有时间研究该问题的Mathematica版本中使用的互相关方法，但是在这种情况下，图像红色部分上的局部标准差似乎会发现Waldo。
library(raster)
waldo = stack("/Users/Benjamin/Desktop/DepartmentStore.jpg")
r = waldo[[1]] - waldo[[2]] - waldo[[3]]
r[is.na(r)] = 0
r_mask = Which(r > 0)
r_masked = r * r_mask
focalsd = focal(r_masked, w=3, fun=sd)
plot(focalsd)