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

Question

可以识别图像的边缘 like so :

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

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

但是假设我们想要对 做同样的事情而不是 'boats' 对象。 svg (下面以长颈鹿为例)，我们如何找到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 格式的图像(如长颈鹿)转换为一组 scatterplotting in a geom_point() 的笛卡尔坐标。 ，像这样:

library(datasauRus)
library(ggplot2)

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

最终目标是让长颈鹿进入 geom_point()就像上面的恐龙

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

结果:



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