r - 在R中查找svg图像的边缘（即笛卡尔坐标）？

Question

可以像这样识别图像的边缘：

library('ggplot2')
library('imager')

plot(boats)
img <- cannyEdges(boats)
plot(img)

但是假设我们想要对svg（下面以长颈鹿为例）做同样的事情，而不是 'boats' 对象，我们如何找到 svg 图像的边缘？

我尝试了明显的：

library(magick)
giraffe <- image_read_svg("http://steveharoz.com/research/isotype/icons/giraffe.svg")

plot(giraffe)
gimg <- cannyEdges(giraffe)
# Error in if (has.col) { : argument is of length zero

笔记

我最终想要做的是自动将 svg 格式的图像（如长颈鹿）转换为一组笛卡尔坐标，以便在 a 中进行散点图geom_point()，如下所示：

library(datasauRus)
library(ggplot2)

datasaurus_dozen %>% 
  filter(dataset == "dino") %>% 
  ggplot(aes(x=x, y=y))+
  geom_point()

最终目标是让长颈鹿变成geom_point()像上面的恐龙一样

标签： rggplot2imagemagick

Answer 1

这是 ImageMagick 命令行中的一种方法。（对不起，我不知道 R 等价物）

创建边缘图像。然后创建一个网格蒙版并将蒙版与边缘图像相乘以留下点。

输入：

convert giraffe.png -alpha extract -morphology edgeout diamond:1 \
\( -size 1x1 xc:black -size 1x1 xc:white +append +write mpr:tile1 +delete \) \
\( -size 1x1 xc:black -size 1x1 xc:white -append +write mpr:tile2 +delete \) \
\( -clone 0 -tile mpr:tile1 -draw "color 0,0 reset" \) \
\( -clone 0 -tile mpr:tile2 -draw "color 0,0 reset" \) \
\( -clone 1 -clone 2 -compose multiply -composite \) \
-delete 1,2 \
-compose multiply -composite -negate giraffe_edge_dots.png

结果：

调整蒙版黑色部分的大小以放置更多间距。