如何找到带有R的Waldo？

Question

灵感来自这个主题 如何找到带有Mathematica的Waldo？

我从未在R中进行图像处理,但也许其他人想要分享...

谢谢!

Answer 1

这是一个开始,使用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)