在 Slidify 的幻灯片中渲染 rCharts

Question

最近我一直在尝试slidify 和rCharts。使用 slidify 生成简单图表的教程是解释性的，但我找不到任何关于 rCharts 的此类教程。

例如，我知道下面会生成一个交互式绘图

data(mtcars)    
r1<- rPlot(mpg ~ wt | am + vs, data=mtcars, type="point")
data(iris)
hair_eye = as.data.frame(HairEyeColor)
rPlot(Freq ~ Hair | Eye,color = 'Eye', data = hair_eye, type = 'bar')

但是，我不知道如何使用slidify 将结果图合并到我的幻灯片中。

编辑 - 在有用的评论之后

我尝试了以下方法，在 Ramnath 的 git 上看到了它：

---
title       : Practice
subtitle    : makes perfect
author      : Noob
job         : 
framework   : io2012        # {io2012, html5slides, shower, dzslides, ...}
highlighter : highlight.js  # {highlight.js, prettify, highlight}
hitheme     : tomorrow      # 
widgets     : [nvd3]            # {mathjax, quiz, bootstrap}
mode        : selfcontained # {standalone, draft}
---

```{r setup, message = F, echo = F}
require(rCharts)
options(RCHART_WIDTH = 800, RCHART_HEIGHT = 500)
knitr::opts_chunk$set(comment = NA, results = 'asis', tidy = F, message = F)
```


## NVD3 Scatterplot

```{r echo = F}
data(mtcars)
n1 <- nPlot(mpg ~ wt, group = 'gear', data = mtcars, type = 'scatterChart')
n1$print('chart1')
```

但最终出现了这个错误：

Error in file(con, "r") : cannot open the connection
In addition: Warning message:
In file(con, "r") :
  cannot open file 'libraries/widgets/nvd3/nvd3.html': No such file or directory

之后，我决定将 Ramnath 的小部件中的 nvd3 文件夹直接复制到我的文件夹中，希望这能解决问题。然而，这最终在后台疯狂地显示了 Ramnath 的 git 页面以及我的幻灯片！

怎么办？我非常感谢任何有关如何完成此任务的指南/指针/建议。而且，我希望这个问题能帮助像我这样的其他新手使用精彩的 rCharts。

注意：我使用的是 R 的标准编辑器，而不是 R-studio。我觉得前者不那么杂乱。

Answer 1

以下所有说明均假定您已安装软件包的 dev 分支（slidify、slidifyLibraries 和 rCharts）。您可以使用install_github 完成此操作。

pkgs <- c("slidify", "slidifyLibraries", "rCharts")
devtools::install_github(pkgs, "ramnathv", ref = "dev")

有两种方法可以在您的 slidify 文档中包含 rCharts 即，下面的卡片组说明了这两种方法。如果您在代码块中打印绘图，就像在 R 控制台中那样，slidify 会自动检测到您正在 knitr 会话中运行它，因此将生成的 html 保存到 iframe 并将其嵌入到卡组中。或者，您可以指定内联图表，在这种情况下，您必须使用 n1$show("inline") 并在 YAML 前端内容中包含 ext_widgets: {rCharts: libraries/nvd3}。

iframe 方法是默认和推荐的方法，以避免各种 javascript 文件和 css 之间的冲突。内联方法对几个 rCharts 库都适用，但请务必在使用前进行检查。

---
title       : rCharts Integration
ext_widgets : {rCharts: libraries/nvd3}
mode: selfcontained
---

## NVD3 Plot Inline

```{r nvd3plot, results = 'asis', comment = NA, message = F, echo = F}
require(rCharts)
n1 <- nPlot(mpg ~ wt, data = mtcars, type = 'scatterChart')
n1$show('inline')
```

---

## NVD3 Plot Iframe

```{r nvd3plot2, results = 'asis', comment = NA, message = F, echo = F} 
require(rCharts)
n1 <- nPlot(mpg ~ wt, data = mtcars, type = 'scatterChart')
n1
```