14

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

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

结果如下所示： 文件中的错误（con，

我想出的解决方案使用了 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>

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

4

2 回答 2

5

以下是关于如何在 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)
```
于 2016-12-08T12:33:27.093 回答
-1

有同样的问题。当我执行slidify(index.Rmd)时，有一条消息说PhantomJS not found，并建议我运行webshot::install_phantomjs()。所以我做了，错误消失了。但是，我仍然没有得到绘图的交互式地图输出。它是空白的。

还在终端中尝试了以下代码，该代码对某些人有效，但对我无效。我得到了 html 文件输出，但仍然没有地图。它来自这篇文章。它可能对你有用。

Rscript -e "library(knitr); library(rmarkdown); 
rmarkdown::render('index.Rmd', output_file='index.html')"

我确信这是有计划的。因为 ggplots 工作正常。

更新：

通过运行重新安装/更新wetshot包install.packages("webshot")，然后webshot::install_phantomjs()再次运行，然后library(knitr); library(rmarkdown); rmarkdown::render('index.Rmd', output_file='index.html')。有效。html 文件有一个绘图地图，尽管它没有出现在 Knitr 预览窗口中。

更新：

通过添加以下代码，我可以在侧面显示地图。参考这篇文章。

htmlwidgets::saveWidget(as_widget(p), "p.html")
cat('<iframe src="./p.html" width=100% height=100% allowtransparency="true"> </iframe>')

完整的上下文将在下面列出。

library(plotly)
cities <- readRDS("D:/R/data/cn_cities.rds")
cities <- cities[1:50,]

geo <- list(
  scope = 'asia',
  projection = list(type = 'Mercator'),
  showland = TRUE,
  landcolor = toRGB("gray85"),
  countrycolor = toRGB("white"),
  subunitcolor = toRGB("white"),
  countrywidth = 1,
  subunitwidth = 1)

p <- plot_geo(cities, 
              locationmode='CHN', 
              sizes=c(1, 200)) %>% 
     add_markers(x=~lng, y=~lat, 
                 size=~sqrt(population),
                 hoverinfo="text", 
                 text=~paste(city, "<br />", population)) %>%
     layout(title='', 
            geo=geo)

htmlwidgets::saveWidget(as_widget(p), "p.html")
cat('<iframe src="./p.html" width=100% height=100% allowtransparency="true"> </iframe>')
于 2018-11-22T12:32:56.570 回答