有人在Knitr中使用gridSVG吗？我发现软件包“gridSVG”提供了一个名为“gridsvg”的设备，并且我编写了如下代码。
```{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
```
当我单击“Knitr HTML”时，我得到了:
pandoc.exe: Could not find data file
AnalysisReport_files/figure-html/unnamed-chunk-61.svg pandoc document conversion failed
看来gridsvg没有产生svg文件。我已经搜索了互联网，但没有找到在knitr中使用gridSVG的任何示例。
我应该如何修改代码？ (PS。由于Windows下的渲染质量，我不想使用默认的“svg”设备)
谢谢!
最佳答案
因为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
查看http://rpubs.com/yihui/knitr-gridsvg的输出