suggest forcats; leverage automargins

Author: cpsievert

demo/crosstalk-highlight-pipeline.R

@@ -8,8 +8,7 @@ base <- plot_ly(sd, color = I("black"), height = 400) %>%
 p1 <- base %>%
   summarise(miss = sum(is.na(median))) %>%
   filter(miss > 0) %>%
-  arrange(miss) %>%
-  add_bars(x = ~miss, y = ~factor(city, levels = city), hoverinfo = "x+y") %>%
+  add_markers(x = ~miss, y = ~forcats::fct_reorder(city, miss), hoverinfo = "x+y") %>%
   layout(
     barmode = "overlay",
     xaxis = list(title = "Number of months missing"),
@@ -21,6 +20,5 @@ p2 <- base %>%
   layout(xaxis = list(title = ""))
 
  subplot(p1, p2, titleX = TRUE, widths = c(0.3, 0.7)) %>% 
-  layout(margin = list(l = 120)) %>%
   hide_legend() %>%
   highlight(dynamic = TRUE, selectize = TRUE)