remotes::install_github("LCBC-UiO/ggseg")
library(ggseg)

ggseg(mapping = aes(fill = region),
      colour = "gray3",    # Color of the segmentation
      size = 1,            # Size of the segmentation
      hemisphere = "left", # or "right"
      view = "lateral") +  # or "medial"
  theme(legend.position = "none")

_________________________

library(remotes)
install_github("sharlagelfand/ggkeyboard", ref = "main")
library(ggkeyboard)

ggkeyboard(palette = keyboard_palette("cyberpunk"))
ggkeyboard(palette = keyboard_palette("magic"))
ggkeyboard(palette = keyboard_palette("t0mb3ry""))
ggkeyboard(sixty_percent,
           palette = keyboard_palette("t0mb3ry"),
           adjust_text_colour = FALSE)

_________________________

_________________________

_________________________

_________________________

_________________________

_________________________

_________________________

_________________________

install.packages("flametree")
library(flametree)

# pick some colours
shades <- c("#1b2e3c", "#0c0c1e", "#74112f", "#f3e3e2")

# data structure defining the trees
dat <- flametree_grow(time = 10, trees = 10)

# draw the plot
dat %>% 
  flametree_plot(
    background = "antiquewhite",
    palette = shades, 
    style = "nativeflora"
  )

_________________________

devtools::install_github("gadenbuie/rsthemes")
rsthemes::install_rsthemes()