dplyr::filter(
BigTraderFile,
classification %in% c(1,16)
) %>%
ggvis(~as.Date(Date), ~TradeCount, stroke = ~Trader) %>%
layer_lines(stroke = ~classification)