RMarkdown 和 RCharts

Question

当我运行这个RMarkdown代码时：

---
title: "test"
output: html_document
---

```{r cache=FALSE}
library(rCharts)
library(knitr)
opts_chunk$set(comment = NA, results = "asis", comment = NA, tidy = F)

hair_eye = as.data.frame(HairEyeColor)
p2 <- nPlot(Freq ~ Hair, group = 'Eye', data = subset(hair_eye, Sex == "Female"), type = 'multiBarChart')
p2$chart(color = c('brown', 'blue', '#594c26', 'green'))
p2$show('inline', include_assets = TRUE, cdn = TRUE)
```

我明白了： http://rpubs.com/rajesh06/test_Rmd

我还尝试了 "self-contined: no" 选项，方法是更改为：

output: 
  html_document:
    self-contained: no

但这似乎没有帮助。

有什么想法吗？

Answer 1

在我的工作中，我有一个 Mac 和 $show() 正常工作。我在家里的 PC 上尝试了一些代码，但由于某种原因 $show() 不起作用。但是，有一种简单的方法可以使用 $save() 函数解决此问题：

---
title: "test"
output: html_document
---

```{r cache=FALSE}
library(rCharts)
library(knitr)
opts_chunk$set(comment = NA, results = "asis", comment = NA, tidy = F)

hair_eye = as.data.frame(HairEyeColor)
p2 <- nPlot(Freq ~ Hair, group = 'Eye', data = subset(hair_eye, Sex == "Female"), type = 'multiBarChart')
p2$chart(color = c('brown', 'blue', '#594c26', 'green'))
p2$save("p2.html", standalone = TRUE)
```


<iframe src="p2.html" align="center" width="900" height="600" frameBorder="0"></iframe>

你可以从这里找到我得到这个解决方案的讨论： https://github.com/ramnathv/rCharts/issues/373

我建议您使用 $save() 函数，因为它实际上允许在独立 html 中向 rCharts 添加控件，而 $show() 不允许。

Answer 2

更通用的解决方案（参见 this 线程）是使用：

p1$show('inline', include_assets = TRUE, cdn = TRUE)

例如

```{r results = 'asis', comment = NA, cache = F}
library(rCharts)
n1 <- nPlot(mpg ~ wt, data = mtcars, type = 'scatterChart')
n1$show('inline', include_assets = TRUE, cdn = TRUE)
```

RMarkdown 和 RCharts

RMarkdown and RCharts

r

r-markdown

rcharts