Axis failed to refresh after legend filter is enabled, leading to wrong interpretation

[happyshows]

uncheck flag = no
before:

after:

source data

p <- ggplot(data = src,aes(x=Week,y=USAGE,fill = usage_hi))+
        geom_bar(stat = 'identity',position = position_dodge())+
        theme_bw()+
        theme(
          panel.grid.major.x = element_blank(),
          panel.border = element_blank(),
          axis.text.x=element_text(angle=30, hjust=1)
        )+

        scale_y_continuous(labels = comma)+
        facet_grid(ResourceName+Facility~Quarter,
                   scales = 'free_x',space = "free",labeller = label_value,switch = 'both')

      ggplotly(p)

[cpsievert]

Duplicate of #689