inst/app-visualize/helper/highline.R

In xplorerr: Tools for Interactive Data Exploration

library(highcharter)
# title
# subtitile
# axis
# legend
# plotoptions


# gdp <- readr::read_csv('gdp.csv')

highline <- function(data, x, columns, add_labels = FALSE) {
  
  x <- data %>%
    select_(x) %>%
    pull(1)
  
  column <- data %>%
    select(columns)
  
  n <- column %>% ncol() %>% seq_len()
  
  nam <- column %>% names()
  
  h <- highchart() %>%
    hc_xAxis(categories = x)
  
  for (i in n) {
    h <- h %>%
      hc_add_series(name = nam[i], data = column[[i]])
  }
  
  if (add_labels) {
    h %>%
      hc_plotOptions(line = list(dataLabels = list(enabled = TRUE)))
  }
  
  h
  
}

# highline(gdp, 'year', c('india', 'china'), add_labels = TRUE)