有人在Knitr中使用gridSVG吗？我找到了包＆＃34; gridSVG＆＃34;提供一个名为＆＃34; gridsvg＆＃34;我编写的代码如下。
```{r message=FALSE, echo=FALSE, warning=FALSE, results='hide', dev='gridsvg', fig.ext='svg'}
analysis.runner.result.plot(result, score.table, info.table) # which produces a gpplot
```
当我点击＆＃34; Knitr HTML＆＃34;时，我得到了：
pandoc.exe: Could not find data file
AnalysisReport_files/figure-html/unnamed-chunk-61.svg pandoc document conversion failed
似乎gridsvg没有生成svg文件。我在互联网上搜索过但没有找到任何在knitr中使用gridSVG的例子。
我应该如何修改代码？ （P.S.由于Windows下的渲染质量，我不想使用默认的“svg＆＃39;设备”
谢谢！
答案 0 :(得分：7)
由于gridSVG::gridsvg()不是标准R图形设备，因此您无法使用 knitr 中的dev块选项。目前唯一的方法是手动保存图，并使用块钩将图形写入输出（参见knitr graphics manual）。这是一个例子：
---
title: Save plots using gridSVG and knitr
author: Yihui Xie
output:
html_document: default
---
Set up a chunk hook for manually saved plots.
```{r setup}
library(knitr)
knit_hooks$set(custom.plot = hook_plot_custom)
```
A single plot.
```{r test-a, fig.keep='none', fig.ext='svg', custom.plot=TRUE}
library(ggplot2)
qplot(speed, dist, data = cars)
gridSVG::grid.export(fig_path('.svg'))
```
Multiple plots.
```{r test-b, fig.keep='none', fig.ext='svg', custom.plot=TRUE, fig.num=2, message=FALSE}
library(ggplot2)
p = qplot(speed, dist, data = cars)
p + geom_smooth()
gridSVG::grid.export(fig_path('svg', number = 1))
p + geom_jitter()
gridSVG::grid.export(fig_path('svg', number = 2))
```
See the source document of this post at
http://stackoverflow.com/q/23852753/559676