In devOpifex/g2r: Interactive Grammar of Graphics

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(g2r)

The theme of the chart can be customised with the motif function.

Out-of-the-box G2.js comes with two themes (light), and dark.

You can also customise the motif with the various element* functions.

library(g2r)

data(penguins, package = "palmerpenguins")

g2(penguins, asp(bill_length_mm, bill_depth_mm)) %>% 
  fig_point(asp(color = island, shape = "circle")) %>% 
  motif(
    backgroundColor = "lightgrey",
    colors10 = scales::hue_pal()(3),
    padding = 20,
    elementPoint(
      shape = "circle",
      stroke = 0,
      opacity = 1
    )
)

g2(cars, asp(speed, dist)) %>% 
  fig_point(asp(shape = "circle")) %>% 
  fig_smooth() %>% 
  motif(
    padding = 30,
    brandColor = "orange",
    backgroundColor = "#363636"
  )

Colors

Continuous

library(htmltools)

row <- function(...){
  div(class = "row", ...)
}

col <- function(...){
  div(class = "col-sm-3", ...)
}

code <- function(...){
  tags$code(...)
}

gen_data_cont <- function(){
  tibble::tibble(
    x = 1:50,
    y = rnorm(50, rep(c(0, 3), each = 25))
  )
}

gen_data_qual <- function(){
  tibble::tibble(
    x = rep(1:25, 3),
    y = rnorm(75, rep(c(0, 5, 8), each = 25)),
    grp = rep(c("A", "B", "C"), each = 25)
  )
}

g_cont <- function(){
  g2(gen_data_cont(), asp(x, y), height = 250) %>% 
    fig_point(asp(shape = "circle", color = y))
}

g_qual <- function(){
  g2(gen_data_qual(), asp(x, y, color = grp), height = 250) %>% 
    fig_point(asp(shape = "circle"))
}

row(
  col(
    code("gauge_color_viridis"),
    gauge_color_viridis(g_cont())
  ),
  col(
    code("gauge_color_plasma"),
    gauge_color_plasma(g_cont())
  ),
  col(
    code("gauge_color_inferno"),
    gauge_color_inferno(g_cont())
  ),
  col(
    code("gauge_color_magma"),
    gauge_color_magma(g_cont())
  )
)

row(
  col(
    code("gauge_color_neon"),
    gauge_color_neon(g_cont())
  ),
  col(
    code("gauge_color_lime"),
    gauge_color_lime(g_cont())
  ),
  col(
    code("gauge_color_orange"),
    gauge_color_orange(g_cont())
  ),
  col(
    code("gauge_color_pink"),
    gauge_color_pink(g_cont())
  )
)

row(
  col(
    code("gauge_color_std"),
    gauge_color_std(g_cont())
  ),
  col(
    code("gauge_color_g2rc"),
    gauge_color_g2rc(g_cont())
  ),
  col(
    code("gauge_color_blue"),
    gauge_color_blue(g_cont())
  ),
  col(
    code("gauge_color_red"),
    gauge_color_red(g_cont())
  )
)

Discrete

row(
  col(
    code("gauge_color_accent"),
    gauge_color_accent(g_qual())
  ),
  col(
    code("gauge_color_dark2"),
    gauge_color_dark2(g_qual())
  ),
  col(
    code("gauge_color_paired"),
    gauge_color_paired(g_qual())
  ),
  col(
    code("gauge_color_pastel1"),
    gauge_color_pastel1(g_qual())
  )
)

row(
  col(
    code("gauge_color_pastel2"),
    gauge_color_pastel2(g_qual())
  ),
  col(
    code("gauge_color_set1"),
    gauge_color_set1(g_qual())
  ),
  col(
    code("gauge_color_set2"),
    gauge_color_set2(g_qual())
  ),
  col(
    code("gauge_color_set3"),
    gauge_color_set3(g_qual())
  )
)

row(
  col(
    code("gauge_color_aw"),
    gauge_color_aw(g_qual())
  ),
  col(
    code("gauge_color_flashy"),
    gauge_color_flashy(g_qual())
  ),
  col(
    code("gauge_color_g2rq"),
    gauge_color_g2rq(g_qual())
  ),
  col(
    code("gauge_color_flashy"),
    gauge_color_flashy(g_qual())
  )
)

Diverging

row(
  col(
    code("gauge_color_g2rd"),
    gauge_color_g2rd(g_cont())
  ),
  col(
    code("gauge_color_brbg"),
    gauge_color_brbg(g_cont())
  ),
  col(
    code("gauge_color_piyg"),
    gauge_color_piyg(g_cont())
  ),
  col(
    code("gauge_color_prgn"),
    gauge_color_prgn(g_cont())
  )
)

row(
  col(
    code("gauge_color_puor"),
    gauge_color_puor(g_cont())
  ),
  col(
    code("gauge_color_rdbu"),
    gauge_color_rdbu(g_cont())
  ),
  col(
    code("gauge_color_rdgy"),
    gauge_color_rdgy(g_cont())
  ),
  col(
    code("gauge_color_rdylbu"),
    gauge_color_rdylbu(g_cont())
  )
)

row(
  col(
    code("gauge_color_rdylgn"),
    gauge_color_puor(g_cont())
  ),
  col(
    code("gauge_color_spectral"),
    gauge_color_spectral(g_cont())
  ),
  col(
    code("gauge_color_ryb"),
    gauge_color_ryb(g_cont())
  ),
  col(
    code("gauge_color_bwg"),
    gauge_color_bwg(g_cont())
  )
)