Create ggvis_horizBar.R