renderGvis 在 rmarkdown 中不起作用

Question

我试图在 rmarkdown 页面中显示 googleVis 图表，但它不起作用......相反，它在浏览器中逐字显示 R 代码。

结果

function () 
{
    chart <- func()
    paste(chart$html$chart, collapse = "\n")
}
<environment: 0x5bd7558>

代码

```{r echo=F}
library(googleVis)

df <- data.frame(country=c("US", "GB", "BR"), val1=c(1,3,4), val2=c(23,12,32))

renderGvis({
  gvisColumnChart(df, xvar="country", yvar=c("val1", "val2"))
})

```

Answer 1

不知道你有没有卡住，我顺便回答一下，如果对别人有用。

有 2 处更改适用于您的代码:

添加 op <- options(gvis.plot.tag='chart')仅将 HTML 文件的图表组件写入输出文件 check this 的语句

添加 results='asis'声明，以便返回原始 html check this

因此，您的代码应该是( .Rmd 文档):

---
title: "testGoogleVis"
output: html_document
---

```{r echo=F, results='asis'}
library(googleVis)
op <- options(gvis.plot.tag='chart')

df <- data.frame(country=c("US", "GB", "BR"), val1=c(1,3,4), val2=c(23,12,32))

plot(gvisColumnChart(df, xvar="country", yvar=c("val1", "val2")))
```