a nice dark theme for {ggtern} and {tricolore}

dark-tern-theme.r

library(ggtern)
library(ggdark)
library(hrbrthemes)

# own options for ternary theme
own_tern_theme <- dark_theme_minimal(base_family = font_rc) +
    theme(
        legend.position = "none",
        axis.title = element_blank(),
        tern.axis.arrow.show = FALSE, 
        tern.axis.ticks.length.major = unit(12, "pt"),
        tern.axis.text.R =  element_text(size = 12, colour = 5),
        tern.axis.text.L = element_text(size = 12, colour = 6),
        tern.axis.text.T = element_text(size = 12, colour = 7),
        tern.axis.ticks.major.R =  element_line(colour = 5, size = 1),
        tern.axis.ticks.major.L = element_line(colour = 6, size = 1),
        tern.axis.ticks.major.T = element_line(colour = 7, size = 1),
        tern.axis.title.T = element_text(
            hjust = -.1,
            vjust = -2,
            angle = -60,
            family = font_rc,
            face = 2,
            color = 7
        ),
        tern.axis.title.L = element_text(
            hjust = -1,
            vjust = -2.5,
            angle = 60,
            family = font_rc,
            face = 2,
            color = 6
        ),
        tern.axis.title.R = element_text(
            hjust = 1.5,
            vjust = 3,
            family = font_rc,
            face = 2,
            color = 5
        ),
        text = element_text(
            family = font_rc,
            face = 2,
            size = 14,
            color = "grey20"
        )
    )