r - 如何在 R Studio 演示文稿 (Rpres) 中包含 plotly

Question

如何在 Rpres 文件中包含绘图？如果你像在普通的 Rmd 文件中那样做

Basic Plot
========================================================
```{r, echo=FALSE}
library(plotly)
plot_ly(economics, x = date, y = unemploy / pop)
```

结果如下:

我想出的解决方案，它利用了 Markdown 可以包含 HTML 的可能性:

Basic Plot
========================================================
```{r, results='hide', echo=FALSE}
library(plotly)
p = plot_ly(economics, x = date, y = unemploy / pop)
htmlwidgets::saveWidget(as.widget(p), file = "demo.html")
```
<iframe src="demo.html" style="position:absolute;height:100%;width:100%"></iframe>

但我希望有一个更优雅的解决方案，不使用任何额外的文件。

Answer 1

以下是关于如何在 ioslides 演示文稿中包含plot_ly 图表的最小示例，因此它并不能完全回答 Rpres 的问题，但提供了替代方案。

第一张幻灯片显示从 ggplot 转换为plot_ly 的图，保留了 ggplot 风格。第二张幻灯片直接使用plot_ly 显示绘图。

---
title: "Plot_ly demo"
date: "8 December 2016"
output: ioslides_presentation
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
```

## A simple plot_ly

```{r, fig.align='center', message = FALSE}
library(plotly)

df <- data.frame(x =  1:10, y = (1:10)^2)

p <- ggplot(df, aes(x = x, y = y)) + geom_line() + labs(x = "X", y = "Y", title = "X and Y")

ggplotly(p)
```

## Another simple plot_ly

```{r, echo = FALSE, fig.align = 'center', message = FALSE}
plot_ly(df, x = x, y = y)
```