inst/app-visualize/helper/highhist.R

highist <- function(data, column, xlab = ' ', color = 'blue') {
  
  da <- data %>%
    select_(column) %>%
    pull(1) 
  
  h <- hchist(da, name = xlab)
  
  h %>%
    hc_colors(colors = color) %>%
    hc_yAxis(title = list(text = 'Frequency'))
  
}

highist(mtcars, 'mpg', xlab = 'Miles Per Gallon', color = 'red')

Try the xplorerr package in your browser

Any scripts or data that you put into this service are public.

xplorerr documentation built on Feb. 28, 2019, 5:05 p.m.