плотно в flexdashboard: создает аномалии вертикальной линии - PullRequest
Новая
       51

плотно в flexdashboard: создает аномалии вертикальной линии

0 голосов
/ 23 апреля 2020

Я пытаюсь построить панель мониторинга (flexdashboard:) с помощью DashR (plotly), но я сталкиваюсь с некоторыми графическими аномалиями. Я использую flexdashboard: в режиме storyboard = yes, и всякий раз, когда я добавляю составленную диаграмму p ie, созданную с помощью plotly, на нескольких кадрах появляются вертикальные линии на 2-м кадре - не происходит на 1-м, а происходит только с меня в режиме storyboard = yes.

Это известная проблема и есть ли обходные пути? Любые альтернативные идеи, которые я мог бы использовать?

Вот мой MWE (для шаблонов использовался код шаблона из plotly ): 

---
title: "Plotly Test vertical lines"
output:
  flexdashboard::flex_dashboard:
    storyboard: yes
---
### Frame 1 no problem
```{r}
library(plotly)
library(dplyr)

fig <- plot_ly()
fig <- fig %>% add_pie(data = count(diamonds, cut), labels = ~cut, values = ~n,
          name = "Cut", domain = list(x = c(0, 0.4), y = c(0.4, 1)))
fig <- fig %>% add_pie(data = count(diamonds, color), labels = ~color, values = ~n,
          name = "Color", domain = list(x = c(0.6, 1), y = c(0.4, 1)))
fig <- fig %>% add_pie(data = count(diamonds, clarity), labels = ~clarity, values = ~n,
          name = "Clarity", domain = list(x = c(0.25, 0.75), y = c(0, 0.6)))
fig

```
***
Test

### Frame 2 problem
```{r}
library(plotly)
library(dplyr)

fig <- plot_ly()
fig <- fig %>% add_pie(data = count(diamonds, cut), labels = ~cut, values = ~n,
          name = "Cut", domain = list(x = c(0, 0.4), y = c(0.4, 1)))
fig <- fig %>% add_pie(data = count(diamonds, color), labels = ~color, values = ~n,
          name = "Color", domain = list(x = c(0.6, 1), y = c(0.4, 1)))
fig <- fig %>% add_pie(data = count(diamonds, clarity), labels = ~clarity, values = ~n,
          name = "Clarity", domain = list(x = c(0.25, 0.75), y = c(0, 0.6)))
fig

```
...