r - 在 R markdown 中嵌入使用函数生成的 googleVis 图表

Question

我有一个函数可以为不同的数据框创建相同类型的googleVis图。这些图将嵌入到 Markdown 文件中。当我的函数创建图表对象时，使用该选项嵌入单个图result='asis'无法实现我的目标。以下是相同的虚拟代码：

Embedded googleVis plots
=====================

Some text here

```{r}
library(googleVis)
op <- options(gvis.plot.tag="chart")
```

And now the plot

```{r result='asis', tidy=TRUE}
mark_func <- function(data) {
    data$Mean=mean(data$Popularity)
    CC <- gvisComboChart(data, xvar='City',
          yvar=c('Mean', 'Popularity'),
          options=list(seriesType='bars',
                       width=450, height=300,
                       title='City Popularity',
                       series='{0: {type:"line"}}'))
    return(CC)
}
```

```{r result='asis', tidy=TRUE}
plt <- mark_func(CityPopularity)
plot(plt)`
```  

我正在将此 Markdown 文件转换为使用包中的knit2htmlHTMLknitr并在 Firefox 中查看此 HTML。我没有看到一个情节，而是看到了一个很长的 HTML 代码。

我错过了什么？谢谢你的帮助。

Answer 1

这只是错别字。您忘记在末尾转义引号，并且代码块选项应该是结果，而不是结果。

工作代码：

%\VignetteEngine{knitr::knitr}

```{r}
library(googleVis)
op <- options(gvis.plot.tag="chart")
```

```{r results='asis', tidy=TRUE}
mark_func <- function(d) {
    d$Mean=mean(d$Popularity)
    CC <- gvisComboChart(d, xvar='City',
          yvar=c('Mean', 'Popularity'),
          options=list(seriesType='bars',
                       width=450, height=300,
                       title='City Popularity',
                       series='{0: {type:\"line\"}}'))
    return(CC)
}
```

```{r results='asis', tidy=TRUE}
plt <- mark_func(CityPopularity)
plot(plt)
```