R/graphics.R

Defines functions barPlot

barPlot <- function(data) {
  ggplot(data, aes(y = cut)) +
    geom_bar(aes(fill = color), position = position_stack(reverse = TRUE)) +
    theme(legend.position = "top")
}
jaysnm/shiny.app.package documentation built on Sept. 28, 2020, 12:44 a.m.