Support ink and paper

[yutannihilation]

devtools::load_all("~/GitHub/gghighlight/")
#> ℹ Loading gghighlight
#> Loading required package: ggplot2

do_plot <- function(ink = "black", paper = "white") {
  p <- ggplot(mtcars, aes(wt, mpg)) + 
    geom_point(size = 10) +
    theme(
      geom = element_geom(ink = ink, paper = paper),
      plot.background = element_rect(fill = paper),
      panel.background = element_rect(fill = paper)
    ) +
    gghighlight(mpg < 25)
}

print(do_plot())

print(do_plot("purple"))

print(do_plot("white", "black"))

^{Created on 2024-09-06 with reprex v2.1.1}

[yutannihilation]

Thinking this again, probably,

• ink should be greyed
• paper's colour should be kept