Попытка сделать интерактивную графическую диаграмму с помощью filter_select () и работы без блеска. Я работаю с данными для многих аэропортов (> 100). Диаграмма, как правило, слишком перегружена, чтобы поддержать пользователя, чтобы сравнить наблюдаемую производительность (значение VAL) в одном аэропорту (APT_x) с подмножеством партнеров. Идея состоит в том, чтобы использовать фильтр, чтобы пользователь выбирал подмножество аэропортов.
# create a dummy table with data for year, airport, and oberved value
yr <- c(2017, 2018, 2019)
ap <- c("APT_1", "APT_2", "APT_3", "APT_N")
df <- expand.grid(YEAR = yr, APT = ap)
df$VAL <- c(10, 11, 12, 14, 9, 8, 7, 6, 2, 10, 12, 13)
library(plotly)
# shared data
df_sh <- highlight_key(df, key=~APT)
# filters
ap_filter <- filter_select(id="airport",label="filter airport", sharedData=df_sh, group=~APT)
# stacked bar chart
bc <- df_sh %>% plot_ly(x=~APT, y=~VAL, color=~factor(YEAR)) %>%
group_by(APT) %>%
add_bars() %>%
layout(barmode = "stack")
# arrange plot
bscols(widths = c(3, 9)
, ap_filter
, bc
)
Всякий раз, когда выбрано более одного APT аэропорта, на оси x отображаются все отметки между столбцами. Как это может быть удалено / подавлено? Очевидно, что в следующем примере APT_2 не должен отображаться. Спасибо за любые указатели. 