Open happyshows opened 8 years ago
dat1 <- mtcars %>% filter(vs == 1) dat1 %>% tauchart %>% tau_bar('mpg','cyl','vs') %>% tau_legend() %>% tau_tooltip() %>% tau_color_manual('red')