library(vchartr)
data("mpg", package = "ggplot2")
vchart(table(Class = mpg$class), aes(Class, Freq)) %>%
v_bar() %>%
v_labs(
title = "Title for the chart",
subtitle = "A subtitle to be placed under the title"
)
Run the code above in your browser using DataLab