将SVG转换为ggPlot

Question

我知道它古怪但我希望能够在ggPlot中绘制Gartner Hype Cycle曲线，但这是一个奇怪的形状。我有一个路径的SVG，可以在此question的引导下提取SVG坐标。

但是在ggPlot中使用的绝对坐标数据框中无法看到这些。这甚至可能吗？

任何人都可以阐明潜在的方法吗？

提取的SVG路径是......

  

＆＃34; M12.967,349.469c15.107-87.283,25.932-180.142,54.214-264.61c31.17-93.095,54.138,17.688,65.096,53.934c11.354,37.558,23.177,74.976,34.309,112.6c26 .534,89.679,79.275-25.286,92.183-45.57c11.749-18.462,20.938-43.699,69.798-48.289c70.298-6.604,177.054-4.848,224.858-5.774＆＃34;

Answer 1

我不知道一个通​​用的解析器，我想我会试着查看规范，看看它会有多复杂。这是将这些命令转换为点的粗略第一步。首先，辅助函数2计算二次贝塞尔曲线：

{
  "data": {
    "person": {
      "name": null,
      "age": null,
      "interest": null
    }
  }
}

然后你可以用

解析字符串

c_curve<-function(start, c1, c2, end, n=100) {
  c1 <- start+c1
  c2 <- start+c2
  end <- start+end
  sapply((0:n)/n, function(i) {
    q1 <- start+i*(c1-start)
    q2 <- c1+i*(c2-c1)
    q3 <- c2+i*(end-c2)
    r1 <- q1+i*(q2-q1)
    r2 <- q2+i*(q3-q2)
    r1+i*(r2-r1)
  })
}

您可以使用

运行它

parse_svg_path <- function(path) {
  parts <- regmatches(path, gregexpr("[A-Za-z]|,|-?[0-9.]+", path, perl=T))[[1]] 
  parts <- parts[parts!=","]
  vals <- suppressWarnings(as.numeric(parts))
  i <- 1
  points <- matrix(ncol=0, nrow=2)
  while(i < length(parts)) {
    if (parts[i]=="M") {
      points <- cbind(points, c(vals[i+1], vals[i+2]))
      i <- i+3
    } else if (parts[i]=="c") {
      cpoints <- c_curve(
        points[, ncol(points)],
        c(vals[i+1], vals[i+2]),
        c(vals[i+3], vals[i+4]),
        c(vals[i+5], vals[i+6])
      )
      points <- cbind(points, cpoints)
      i <- i+7
    } else {
      stop(paste("unrecognized command", parts[i]))
    }
  }
  points
}

如果我描绘我得到

path <- "M12.967,349.469c15.107-87.283,25.932-180.142,54.214-264.61c31.17-93.095,54.138,17.688,65.096,53.934c11.354,37.558,23.177,74.976,34.309,112.6c26.534,89.679,79.275-25.286,92.183-45.57c11.749-18.462,20.938-43.699,69.798-48.289c70.298-6.604,177.054-4.848,224.858-5.774"
pp <- parse_svg_path(path)

我希望这是正确的形状？