r - 如何将svg文件中的路径坐标获取到R中

Question

也许这是一个愚蠢的问题，但我没有太多这样做的经验。我需要从多边形获取坐标以在 R 中创建轮廓。它是一个大约 1000 个点的复杂多边形，因此手动输入坐标是疯狂的。我还需要提取轮廓内某些对象的 xy 位置。 我尝试使用 Illustrator 和 Inkscape 创建一个包含所有信息的 svg 文件。考虑到 svg 文件包含所有信息，这看起来是一个不错的选择。有没有办法从路径或多边形节点中提取坐标？或者还有其他更简单的方法来完成这个过程？ 我将非常感谢任何帮助，因为我必须为大约 30 张图像执行此操作。 干杯

Answer 1

您可以使用XML包来提取坐标。

# Sample data
library(RCurl)
url <- "http://upload.wikimedia.org/wikibooks/en/a/a8/XML_example_polygon.svg"
svg <- getURL(url)

# Parse the file
library(XML)
doc <- htmlParse(svg)

# Extract the coordinates, as strings
p <- xpathSApply(doc, "//polygon", xmlGetAttr, "points")

# Convert them to numbers
p <- lapply( strsplit(p, " "), function(u) 
  matrix(as.numeric(unlist(strsplit(u, ","))),ncol=2,byrow=TRUE) )
p

但是，这会忽略要应用于多边形的任何变换。