powered by
mjs_bar(mjs, bar_height = 20, binned = TRUE)
TRUE
data.frame(year=seq(1790, 1970, 10), uspop=as.numeric(uspop)) %>% mjs_plot(x=year, y=uspop, width=300, height=400) %>% mjs_bar()
Run the code above in your browser using DataLab