library(tidyverse)
library(ggrepel)

library(showtext)
showtext_opts(dpi = 300)
showtext_auto()

library(myriad)

# Semi variant
import_myriad_semi()

# Condensed for in-graph text
import_myriad_condensed()

# ggplot theme
theme_set(theme_myriad_semi())

p <- ggplot(mtcars, 
            aes(x = wt, y = mpg)) + 
  geom_point() + 
  labs(x = "Weight", y = "Miles per Gallon", 
       title = "This is the title", subtitle = "This is the subtitle", 
       caption = "This is the caption")  

p

ggsave("man/figures/ggfont-test-myrnew-2.pdf", p, width = 6, height = 4)

out <- mtcars |>
  mutate(car = rownames(mtcars)) |> 
  as_tibble() |> 
  ggplot(aes(x = wt, y = mpg, label = car)) + 
  geom_text_repel(family = "Myriad Pro Condensed") +
  facet_wrap(~ cyl) + 
  labs(title = "Title", 
       subtitle = "Subtitle")

out
#> Warning: ggrepel: 6 unlabeled data points (too many overlaps). Consider
#> increasing max.overlaps

ggsave("man/figures/ggfont-test-myrnew-3.pdf", out, width = 12, height = 8)