Не выбранные записи отображаются на оси - Crosstalk + Plotly гистограмма - PullRequest
Новая
       103

Не выбранные записи отображаются на оси - Crosstalk + Plotly гистограмма

0 голосов
/ 25 февраля 2020

РЕДАКТИРОВАТЬ

Эта проблема, по-видимому, уже известна сообществу графиков github plotly issue # 689 и здесь есть аналогичный вопрос SO .

К сожалению, похоже, решения пока нет. Любой совет будет принят с благодарностью.

Я использую Crosstalk и Plotly для создания панели мониторинга, и я столкнулся с неожиданным поведением. При выборе через установщик Crosstalk гистограмма Plotly оставляет «пробелы» для невыбранных записей.

В качестве воспроизводимого примера, скажем, я хочу сравнить население городов, вот что я получаю (код внизу):

gaps in selection

Вполне может быть, что я что-то упустил, есть ли способ избавиться от пропасти? какой-нибудь совет относительно жизнеспособных способов сделать подобное сравнение, избегая проблемы?

Заранее спасибо.

Код: 

---
title: "Crosstalk+Plotly bargraph selection"
---

```{r setup, include=FALSE}
options(stringsAsFactors = FALSE)
library(crosstalk) 
library(dplyr)
library(plotly)  

#data on cities' population
city_pop <- data.frame("City" = c("Florence",  "Milan", "Venice"),
                    "Population" = c(382258, 1352000, 261905))

#setting up Crosstalk shared data
sd <- SharedData$new(city_pop, key = city_pop$city)

#filter for the cities
filt <- filter_select(
  id = "select_name",
  label = "Selected City",
  sharedData = sd,
  group = ~City,
  selected = "")

#barplot of cities' population
bars_pop <- plot_ly(sd, x = ~City, y = ~Population) %>% 
add_bars(width=0.2,
           x =  ~City,
       y =  ~Population,
       color = I("#89CFF0"),
       name = "",
       opacity=.9,
       hoverinfo = 'y',
       hovertemplate = paste('%{x} <br> number of Residents: %{y}<extra></extra>')
       ) 



```

```{r, echo=FALSE}
filt

bars_pop
```
...