如何从R ggplot图片中获取SVG字符串

发布于03月18日

在R中，假设我有一个ggplot个对象，如下面教程中的p个:

library(ggplot2)
data <- data.frame(
        day = as.Date("2017-06-14") - 0:364,
        value = runif(365) + seq(-140, 224)^2 / 10000
)
p <- ggplot(data, aes(x=day, y=value)) +
        geom_line() +
        xlab("")

我不想看到图像，也不想将其保存到文件中.我想要的是获得一个字符串，它是这个图像的SVG，而不做这两件事中的任何一个.这有可能吗？

推荐答案

您可以使用svglite::svgstring():

library(ggplot2)
library(svglite)

data <- data.frame(
  day = as.Date("2017-06-14") - 0:364,
  value = runif(365) + seq(-140, 224)^2 / 10000
)

s <- svgstring()

ggplot(data, aes(x=day, y=value)) +
  geom_line() +
  xlab("")

my_svg <- s()
dev.off()

其中my_svg是包含以下内容的字符串:

<?xml version='1.0' encoding='UTF-8' ?>
<svg xmlns='http://www.w3.org/2000/svg' xmlns:xlink='http://www.w3.org/1999/xlink' class='svglite' width='720.00pt' height='576.00pt' viewBox='0 0 720.00 576.00'>
<defs>
  <style type='text/css'><![CDATA[
    .svglite line, .svglite polyline, .svglite polygon, .svglite path, .svglite rect, .svglite circle {
      fill: none;
      stroke: #000000;
      stroke-linecap: round;
      stroke-linejoin: round;
      stroke-miterlimit: 10.00;
    }
    .svglite text {
      white-space: pre;
    }
  ]]></style>
...