将图像中的单行或平均线/边缘组合成单线

Question

我使用Magick从R中的Magick中提取了一系列图像。 单个结果如下：

我要做的是将类似的行组合到一条线中。 例如，前两行在它们所包含的区域中相当相似​​，并且可以在两者之间进行类似“平均值”之类的东西。 第三和第四张图像之间也有一些明显的相似之处。 我有数百个。

如果我只是将所有图像添加在一起（只需求和代表它们的矩阵），我会得到很多混乱：

，但我仍然可以分辨一些区域。

理想情况下，我正在寻找与R的解决方案。

编辑：

目标。因此，我在这里拥有的是一些基于某些人群的LAT和LON的空间模型的结果。我有数百个二进制功能，大约90个位置。我为每个功能安装了一个2维的GP，并计算了覆盖所有点的正方形区域的点网格的预测。目的是找到分开分组的一般分界线。 这就是原始预测的样子：

编辑2：

以下是一些RDS格式的矩阵：

原始GP预测：

提取的边缘：

Answer 1

我认为这完全取决于你如何定义混乱以及你期望看到什么。

让我们制作一些具有 2 个“颜色”的“图像”矩阵的非常小的示例

m1 <- matrix(c(1, 1, 1, 0, 0, 0, 1, 0, 1), 3, 3)
m2 <- t(apply(m1, 2, rev))
m3 <- t(apply(m2, 2, rev))

让我们看看它们是什么样子

image(m1)

< img src="https://i.sstatic.net/dwVot.png" alt="在此处输入图像描述">

image(m2)

image(m3)

然后就是您必须对您定义的混乱与否进行调用，但让我们将矩阵中的值相加

all <- m1+m2+m3

image(all)

我们现在看到 3 种颜色，所有图像（大多数图像）中存在最暗的颜色，最亮的颜色没有颜色图像数（最少图像）。

要消除噪声，需要将低于某个阈值的矩阵值设置为零以消除混乱，如果您愿意，可以将其（基于阈值）转换回二进制矩阵