r语言 - 有没有办法在本地打开使用 flexdashboard 生成的 html 文件时呈现绘图图形?

Question

我一直在使用 flexdashboard 和绘图图形生成 html 文件已有一段时间了，直到最近才注意到当我从本地驱动器打开文件时，仪表板中的选项卡没有呈现绘图图形。

请考虑以下基本 .rmd 文件：

---
title: "Test Dashboard"
output:
html_document: flexdashboard::flex_dashboard
pdf_document: default
---
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library(arules)
library(plotly)
library(dplyr)
library(DT)
library(reshape2)
library(stringr)
library(crosstalk)
rf<-data.frame(happiness=c(1,2,3,4,5,6,7,8),
laziness=c(3,4,6,1,2,5,6,1))



```

Association Rules
==================================
Column {.tabset}
----------------------------------
### Table

```{r what2, echo=FALSE, collapse=TRUE, message=FALSE,warning=FALSE}
datatable(rf, filter = 'top', extensions = 'Buttons', options = list(dom = 'Bfrtip', buttons = 
c('csv', 'excel','copy', I('colvis')),pageLength = 20, autoWidth = TRUE),rownames = FALSE)
```


### Plot
```{r what, echo=FALSE, collapse=TRUE, message=FALSE, warning=FALSE}

P<-plot_ly(rf,
x=~happiness,
y=~laziness, 
color = ~happiness)
P
```

在上面的代码中，我包含了我经常加载的包，如果有人知道其中一个包是罪魁祸首。

当我在 Rstudio 中编织这个 .rmd 以在我的硬盘驱动器上生成一个.html文件时，该文件会按预期保存。

导航到文件并打开它(Chrome 和 Firefox 已经过测试(会导致用户看到表格，但绘图的选项卡是空白的。

我目前实际查看情节的解决方法是将"#plot"附加到浏览器中文件路径的末尾并点击刷新。 当我这样做时，情节出现了，一切都很好。

虽然这对我有用，但它确实使其他人使用我的输出文件变得不那么有趣。

任何帮助将不胜感激。

Answer 1

似乎 plotly 无法获得默认的宽度和高度，因此使用 NULL。在plot_ly调用中手动设置这些内容会使绘图出现，例如：

P<-plot_ly(rf,
x=~happiness,
y=~laziness, 
color = ~happiness,
width = 600, 
height = 400)

Answer 2

flexdashboard 中的函数 renderPlotly(( 动态调整绘图图的大小。我在Flexdahboard上的一篇博客文章中使用了，请参阅：https://medium.com/analytics-vidhya/shiny-dashboards-with-flexdashboard-e66aaafac1f2