inst/extdata/tasks_demo2/visualize_functions.R

In USGS-R/scipiper: Support functions for ushering data through a scientific workflow

plot_state_data <- function(figure_name, state_data, state) {
  png(figure_name)
  barplot(state_data, beside=T, names.arg = attr(state_data, 'dimnames')[[1]],
          ylab = 'Percent of population', main = state)
  dev.off()
}