dev/sandbox/theme_ggplot2.R

In jbkunst/highcharter: A Wrapper for the 'Highcharts' Library

library(ggplot2)
library(highcharter)
library(dplyr)

data(mpg)

cc <- count(mpg, class, sort = TRUE)
cc

mpg <- filter(mpg, class %in% head(cc$class, 4))

qplot(displ, cty, color = class, data = mpg, geom = "point")

hc_theme_ggplot2 <- function(...) {
  
  theme <- hc_theme(
    chart = list(
      plotBackgroundColor = "#EBEBEB",
      style = list(
        color = "#000000",
        fontFamily = "Arial, sans-serif"
      )
    ),
    colors = c("#595959", "#F8766D", "#A3A500", "#00BF7D", "#00B0F6", "#E76BF3"),
    xAxis = list(
      labels = list(style = list(color = "#666666")),
      title = list(style = list(color = "#000000")),
      gridLineColor = "#FFFFFF",
      gridLineWidth = 1.5,
      tickWidth = 1.5,
      tickLength = 5,
      tickColor = "#666666",
      minorTickInterval = 0,
      minorGridLineColor = "#FFFFFF",
      minorGridLineWidth = 0.5
    ),
    yAxis = list(
      labels = list(style = list(color = "#666666")),
      title = list(style = list(color = "#000000")),
      startOnTick = FALSE,
      gridLineColor = "#FFFFFF",
      gridLineWidth = 1.5,
      tickWidth = 1.5,
      tickLength = 5,
      tickColor = "#666666",
      minorTickInterval = 0,
      minorGridLineColor = "#FFFFFF",
      minorGridLineWidth = 0.5
    ),
    legendBackgroundColor = "rgba(0, 0, 0, 0.5)",
    background2 = "#505053",
    dataLabelsColor = "#B0B0B3",
    textColor = "#C0C0C0",
    contrastTextColor = "#F0F0F3",
    maskColor = "rgba(255,255,255,0.3)"
  )
  
  if (length(list(...)) > 0) {
    theme <- hc_theme_merge(
      theme,
      hc_theme(...)
    )
  } 
  
  theme
  
}

# gg_color_hue <- function(n) {
#   hues = seq(15, 375, length = n + 1)
#   hcl(h = hues, l = 65, c = 100)[1:n]
# }
# dput(gg_color_hue(5))

hchart(mpg, "point", hcaes(displ, cty)) %>% 
  hc_add_theme(hc_theme_ggplot2()) %>% 
  hc_title(text = "asd")


hchart(mpg, "point", hcaes(displ, cty, group = class)) %>% 
  hc_add_theme(hc_theme_ggplot2())


data(mpg)
mpg

dens <- mpg %>% 
  group_by(cyl) %>% 
  do(den = density(.$cty)) %>% 
  { .$den }

library(purrr)

reduce(dens, hc_add_series, .init = highchart(), type = "area", fillOpacity = 0.25) %>% 
  hc_add_theme(hc_theme_ggplot2())

ggplot(mpg) + 
  geom_density(aes(cty, fill = as.factor(cyl)), alpha = 0.25)