Flexdashboard / plotly交互导致滚动条行为异常

Question

我有一个奇怪而令人沮丧的问题。 当我在情节提要板中（通过flexdashboard软件包）构建绘图时，图例中会出现一个非常烦人且完全不必要的滚动条。 当某人试图单击打开或关闭这些点之一时，滚动条会抽搐，实际上无法单击该东西。 仅当在页面加载期间无法立即看到带有可打印图形的选项卡时（即，如果页面加载时选择了其他某个选项卡），才会显示此滚动条。

我可以在情节提要之外制作相同的图形，在RStudio中或将其另存为htmlwidget并将其加载到Chrome中都没有问题。 但是，当我在RStudio或Chrome中加载情节提要板时，会得到这个烦人的滚动条。 无论是垂直图例还是水平图例，滚动条都存在。

ggplotly对象不存在此问题。

这是不必要的滚动条的示例。 ggplotly图形很好，而plotly图形具有滚动条。

---
title: "Untitled"
output: 
  flexdashboard::flex_dashboard:
    storyboard: true
---

```{r setup, include=FALSE}
library(flexdashboard)
```

### ggplot

```{r}

library(plotly)

carggplot <- ggplot(mtcars, aes(hp, mpg, fill = as.factor(carb))) +
    geom_point() +
    theme_bw()

ggplotly(carggplot)
```


### plotly

```{r}
carsplot <- plot_ly(
    data = mtcars,
    x = ~hp,
    y = ~mpg,
    color = ~as.factor(carb),
    type = "scatter",
    mode = "markers"
    )

carsplot
```

我找不到有关此问题的任何文档，尽管我发现有人使用python接口进行密谋发布了类似的问题 。

我正在寻找一种方法来完全关闭滚动条（同时保留图例），或者对滚动条的抽搐行为进行某种解释。

flexdashboard是0.5，可打印地是4.7.1，R是64位3.4.1，Windows 7。

Answer 1

有很多活动部件正在回答您的问题。 我不会详细介绍每个内容，只是简要介绍一下它们。

背景

1. 当图例的长度变长时， plotly.js图表的行为与设计相同，它将自动插入滚动条。

2. ggplotly图表不会发生这种情况，因为所有视觉样式都来自ggplot对象。

3. 在这种情况下， flexdashboard是元凶，因为它如何动态地适应可用空间并通知plotly.js如何渲染。 值得注意的是，它在源html中显示为SVG 。

4. 解决方案是操纵DOM ，以便隐藏/删除/更改有问题的元素。

潜在解决方案

因此，我在下面提供的解决方案有点麻烦。 一个更永久的解决方案可能是与RStudio的好人交涉，以查看是否可以对软件包进行任何更改，从而解决您的问题。

如果在YAML标头中添加runtime: shiny shinyjs ，则可以使用Dean Attali出色的shinyjs包。 虽然我不是这个领域的专家，但是我已经向您的MRE添加了几行，这些行从class=scrollbar的SVG中删除了<rect>元素。 重要的是要注意，您可能需要更改我提供的JavaScript ，使其更具体，而不要删除您可能希望保留的元素。

更新到MRE

这是带有注释的Rmd代码，在其中进行了更改。

---
title: "Untitled"
output: 
  flexdashboard::flex_dashboard:
    storyboard: true
  runtime: shiny
---

```{r setup, include=FALSE}
library(shinyjs)        # add package, note runtime option above in YAML
useShinyjs(rmd = TRUE)  # function needs to initialise js

library(flexdashboard)
library(plotly)
```

### ggplot

```{r}

library(plotly)

carggplot <- ggplot(mtcars, aes(hp, mpg, fill = as.factor(carb))) +
    geom_point() +
    theme_bw()

ggplotly(carggplot)
```


### plotly

```{r}
carsplot <- plot_ly(
    data = mtcars,
    x = ~hp,
    y = ~mpg,
    color = ~as.factor(carb),
    type = "scatter",
    mode = "markers"
    )

carsplot

runjs("$svg.selectAll('rect[class=scrollbar]').remove();") # run plain js to remove elements
```

注意：在我发布此信息时，我得到的结果并不可靠，将进一步进行挖掘。

Answer 2

旧问题，但是如果其他人也有同样的问题，我想在那里解决我的问题...

我遇到了同样的问题，并使用以下方法解决了该问题：

ggplotly(carggplot, height = 500)

我的图例中有一个迷你滚动条，并在调用ggplotly()如上调整高度，使我可以调整到使一切正常工作所需的正确高度。