r - 检测图像中的线并保存其坐标

Question

我有一个表示强度图的图像：

强度图

为了将两个强度图相乘，我需要保存该图的坐标。因此，我首先想找到（中间或一个边界的）线，然后得到它的坐标。到目前为止，我尝试了几件事。最接近解决方案的是使用LineSegmentDetector包：

library(pixmap)
image <- read.pnm(file = "graph.pgm", cellres = 1)
x <- image@grey * 255
linesegments <- image_line_segment_detector(x)
linesegments
plot(image)
plot(linesegments, add = TRUE, col = "red")

这给了我几个线段：

在此处输入图像描述

然而，我们的目标是得到一条宽度为 1 像素的线，如下所示：

在此处输入图像描述

随后，我需要该图的坐标。我需要为 x 方向上的每个像素设置一个 y 值。我希望我的问题很清楚，并感谢您的帮助！

标签： rimage